TDL ZSO CP/M DISK ASSEMBLER VERSION 2.21 

„ MAIN. 


. PASS 
. PHEX 

; *#*»**#*#«•##***«■*•#**#»*»•»•«•* 

? * BALLY BASIC INTERPRETER * 

; -a- * 

; ,<C> .JULY 1978 BALLY MFG * 

; a- # 

; *• WRITTEN BYs JAY FENTON * 

5 * ' •«• 

? * BALLY BASIC IS BASED ON -* 

5 * PALO. ALTO TINY BASIC BY » 

5 .* LICHEN WArNG * 

; # -a- 

; IHHHHHi-#********###* 

V TINY BASIC- INTERPRETER 
5 MACROS" 

.DEFTNE TOKEN CTINDX,TGOTO3 = 
L .BYTE TINDX 

DEFF TGOTO 
II 

.DEFINE DEFFCWORDY 1 ~~ 

Z .BYTE (W0RDY>85!BOH 

.BYTE WORDY&OFFH 


. DEFI NE TSTC Z CAT, DOG .1 = 

RST 1 

.BYTE -CAT-' 

.BYTE DOG-.—1 

, DEFINE TSTCC Z CAT1, DOG 13 = 
RST. 1 

.BYTE CAT1 

.BYTE DOG1-.~1 


4E20 

4FEF 


AOOO 
A 7 DC 
-2000 

0012 


OOFC 


000D 
00 1 F 
002C 
0066 


.DEFINE ITEM Z STRANG,JUMPTO3 
.ASCII -'STRANG-'- 

DEFF'. JUMPTO 


-i 

..i 

BOTSCR ===== 

3BOfRAM ===== 

3DFTLMT ===== 
BOTRAM ===== 
DFTLMT ===== 

Bui RUM ==== 

*J> 

TAPE10 == 

T 

STPBCT == 

FOR VALID DATA 

33 

CR 

RUBOUT 
COMMA 
EDKEY 


04E20H 

04FEFH 

03000H 

03FFFH 

OAOOOH 

0A70CH 

02000H 

12H ? TAPE INTEf 

OFCH .5 OF STOi 


ODH 

1FH 

44 

tSoH 


tMf>#oVED 
DEC. H !<=?©O 

Z ffP 


SPACE I-0 FOR 
=■ BIT WINDOWS 
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0067 MLLN == 67H 

5 EQUATES FOR RESTART INSTRUCTION 
0002 RSTEXP == 2 5 EXPR 

0003 RSTOCH == 3 ? DUTCH 

0004- RSTIGM == 4 5 IGNBLK 

0005 RSTPAR == 5 ? FARM 










STKINPs „BLKB 2 
LOPVARs „BLKB 2 
LOPINCs .BLKB T 
LOPLMTs .BLKB 2 
LOPLN: .BLKB 2' 
LOPPT s . BLKB JL. 

.BLKB 1 
BUFFERS .BLKB 1C 
BUFEND == 


STKL.MT 




BLKB 




BLKB 


BOTROM 
BEG IN 


** AUTOSTAR' 




XTBL'S .BYTE OSOH 

.. BYTE 020H 

.BYTE OSH 
.BYTE 2H 

TRANSFER VECTORS TO RESTART ROUTINE 

JMP hXPH ? *>i* Rj f 16 

JMP OUTGH ? RSI 24 

JMP IGNBLK $ * R8T 32 • 

JMP i FARM 5 * RST 40 

POP ; PSW ? * RST 48 

JMP FINISH i 

JMP--CJ41iLX£±.. .. _..2 l T l\Ik‘‘ TT’s 


OUT INE •«-# 

5 INITIAL VALUES FOR PARAMETER VECTOR 
INIDEVs o » WORD 7 2 $ BACKGROUND COL. J. 

2 , WORD O' 4 $ FOREGROUND COLT 

*. WORD 3 <> ? MUSIC TEMPO 

6. WORD- -77 0 5 VDM X COORD IN A" 

^ WORD 40 l p ? VDM Y COORD IN A' 


ft go- 


Rbl„- ,l 1 1M A L? E s 


'BALLY BASIC 
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2u31 

CO- 


RNZ 


2032: 

7D 


MOV 

A,L 

2033 

BB 


CMR 

E 

2034 

C9 


RET 


2035 

574841543F 

WHAT's 

. ASCI I 

•-WHAT?-" 

2 02 A 

OD - 


. BYTE 

CR 

203B 

4S4F573F 

HOW s 

«ASC11 

**’ HOW? 

203F 

OD 


. BYTE 

CR 

2040 

534F525259 

SORRY: 

.ASCII 

-SORRY-' 

2045 

OD 


. BYTE 

CR 



5 TABL 

E GIVING 

JUMP TO ADDRESS FOR COMMANDS 

2:043 

257D 

TOKJT “ 

. WORD 

LIST 

2048 



. WORD 

CLRSCR 

204A 

254D 


. WORD 

RUN 

204C 

267F 


. WORD 

NEXT 

204E 

22BF 


. WORD 

LINEDR 

2050 

26EC 


. WORD 

IFF 

2052 

2572 


„ WORD 

GOTO 

2054 

25F6 


u WtiRD 

GOSUB 

2056 

2616 


„WORD 

RETURN 

2053 

220D 


WORD 

BOXDRW 

205A 

262C 


WORD 

for 

205C 

2705 


. WORD 

INPUT 

205E 

25B5 


„ WORD 

PRINT 



" IN IE 

RRUPT VEC 

rroRSi; 

2060 

20 F 6 

JTABs 

. WORD 

SIDINT ?** TAPE INTERRUPT VECTO 

2062 ' 

20B0 

hi & 

.i ] A B» 
OR 

. WORD 

■ TB11NT 5** MUSIC INTERRUPT VECT 



! TABL 

E GIVING 

ASCII CHARS FOR TOKENS 

2064 


TOKTXT 

s 


2064 

484953 


.ASCII 

-'LIS"' 

2067 

D4 


. BYTE 

-T-'+SOH 

2068 

434C4541 


„ASCII 

•"CLEfi"' 

2060 

02 


. BYTE 

-'R-'+SOH 

206D 

5255 


.ASCII 

-'RU-' 

206F 

ce: 


. BYTE 

•" N+80H 

2070 

4E4558 


.. ASCII 

-'NEX-' 

2073- 

D4 


. BYTE 

T+8 OH 

2074 

4G494E 


.ASCII 

-' LIN " ' 

2077 

C5 


. BYTE 

-’E-’+SOH 

2078 

49 


„ BYTE 

-' I •" 

2079 

U 6 


. BYTE 

.-p-'+SOH 

207A 

474F54 


.ASCII 

•"GOT"' 

2071) 

CF 


BYTE 

•" 0 -' +80H 

207E 

474F5355 


.ASCII 

•" GOSU 

2082 

C2 


. BYTE 

■" B -' +80H 

2083 

5245545552 


.ASCII 

-' RETUR -' 

2088 

CE 


„ BYTE 

-'N'"+80H 

2039 

424F 


„ASCII 

-'BO-' 

■ 203B 

D8 


BYTE 

•" X " +8 OH 

20SC 

464F 


.ASCII 

-'FO-' 

.208E ' 

D2 - 


. BYTE 

•"R-'+SOH 

208F 

494E5055 


.ASCII 

INPU -’ 
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VS 

D4 

. BYTE 

■*’ T *’* 4- 

80 H 

2094 

5052494E 

.ASCII 


PR IN-’ 

2098 

D4 

. BYTE 


80H 

2099 

535445 

.ASCII 


STE-' 

209C 

DO 

BYTE 

•"p- + 

80H 

209D 

524E 

.ASCII 


RN 

209F 

C4 

. BYTE 

D •" + 

SON 

20 AO 

54 

. BYTE 

T 


20 A i 

CF 

„ BYTE 

•*' 0 *" * 

80 H 



? DEVICE VARIABL 

.E TABLE 



5 THIS TABLE IS 

IN INVERSE ORDER OF APPEARENCE 



N MEMORY 



0007 


PARNUM =* 

7 

5 7 GUYS 

20 A 2 


DEVLSTs 



20A2 

12 

BYTE 

*" R *’* 

■ •" @ *“ 

20 A-,”* 

4D 

. BYTE 

M 


20A4 

18 

„ BYTE 

•- X •" - 


20 A 5 

59 

H BYTE 

-Y- 


20 A6 

03 

„ BYTE 

C - 


20A7 

59 

. BYTE 

Y " 


2.0A8 

03 

„ BYTE 

*** C **’ - 


20A9 

58 

. BYTE 

X 


20 A A 

OE 

„ BYTE 

N - 


20AB 

54 

. BYTE 

.** *r 
* 


20AC 

06 

. BYTE 

F - 


20* AD 

43 

. BYTE 

•*' C *'* 


20 AE 

02 

. BYTE 

B - 


2 OAF 

43 

. BYTE 

•*' C 




1 TINY BASIC INTERRUPT ROUTINE 

20 BO 

F5 

TBIINTs PUSH 

PSW 

1 SAVE: REG 1 STEPS 

20 Bi 

C5 

PUSH 

B 


20B2 

D5 

PUSH 

D 


20B3 

E5 

PUSH 

H 




? DEAL WITH KEYE 

fOARD 

SCAN TIMER 

20B4 

21 4E55 

L X I ■ 

H-,KE 

YTME 

20B7 

7E 

MOV 

A,M 


20 B 8 

A 7 

ANA 

A 


20 B9 

2801 

JRZ 

TBXM 

0 

20BB 


DOR 

M 


20 BC 

.tii S 

TBINOs INX 

H 




? HAS MUSIC TIME 

:r co 

UNTED DOWN"? 

20BD 

. 7E 

MOV 

A, M 


20 BE 

A / 

ANA 

ft 


20BF 

.2808 

JRZ 

TBIN 

1 5 YEP - PLAY NEXT NOTE 

20C1 


DCR 

M 

5 ELSE DECREMENT IT 

20C2 

20 IF 

JRMZ 

TBIN 

3 5 .JUMP IF MOT NOW ZERO 

20C4 

AI¬ 

XRA 

A 


20 C5 

DS! 1 

OUT 

TONE 

A 3 ELSE SILENCE 

20C7 

1818 

JMPR 

TBIN 

r .-'. 



i MUSIC TIMER IS 
ABY? 

; AT 

ZERO - ARE NEW PARAMETERS 

20C9 

23 

TBINI* INX 

H . 

5 STEP TO NEW TIMER VAi 



E . 



2 OCA 

B6 

.. .ORA 

M 

? IS IT NON ZERO? 




JRZ 

DCX 


TBIM3 5 JUMP IF NOT 

H 5 ELSE SET OFFICIAL TIM? 


MOV 

M, A 





I MX 

H 





MV I 

M, 0 

7 

ZERO NEW TIME 

R VALUE 

3 FLAG 






I NX 

H 





MOV 

A, M 

3 

GET 

NEW M»0. 


OUT 

TONMO 





MV I 

M, 0A2 


RES 

-IT DEFAULT 

MASTER 

I NX 

H 





MOV 

A 7 M 

v 

AND 

NEW TONE 


OUT 

TONEA 





ANA 

A 

SI 

RES' 

T WANTED? 


.JRZ 

TBIN3 

7 

YES 

- JUMP AROUND VOi 

ME UPDATE 






MVI 

A, 15 





TBIN2: OUT 

VOLAB 






5 SET COLOR REGISTERS TO VALUES IN PARAMETER VAF 


S 7.0 AND 7.1 
TBINSs LDA 

DEVCLO 


OUT 

COLOL 


OUT 

COL 1L 


LDA 

DEVCL1 


OUT 

C0L2L 


OUT 

C0L3L 


? DUNE RES 

TORE REGISTERS AND 

GO BACK 

INTDON* POP 

H 


POP 

D 


POP 

B 


--- JMPR 

ZRONK 


l ? SERIAL INPUT DRIVER INTERRUPT 

f ROUTINE 

? THIS ROUTI 

NE SAMPLES THE SERI 

:al INPUT BIT 

? AND FORMS 

CHARACTERS WHICH ARE PLACED IN THE 


S CIRCULAR INPUT BUFFER FOR CONSUMPTION BY BACKC 
ROUND LEVEL 


5 THIS ROUTINE USES THE ALTERNATE REGISTER SET 
5 WHERE B=STATE VARIABLE, C=CHARACTER ACCUMULATC 
R 

? IF STATE VAR < 0 => WE ARE AWAITING -N STOP B3 
TS BEFORE 

5 WE BELIEVE ANYTHING 

5 IF STATE VAR « 0 => WE ARE LOOKING FOR A START 

■*-ih STATE VfflklTo’ => WE ARE GETTING BATA BITS 
SIDIMTs PUSH PSW 

EXX 

? SAMPLE THE INPUT BIT 
GETBITs IN TAPE10 

RAR 

MOV A", C 
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3SEMBLER VERSION 


,21 


210D 

04 

21OE 

CB79 

2110 

2016 

2112 

06FC 

.id 1 1 4 

1812 

2116 

1010 


2A 4E 

21 IB 

7D 

211C 

CD 21 

21 IF 

8C 

2120 

2806 

V1 'jd ltd 

32 4E: 

2125 

264E 

2127 

71 

212B 

D9 

212 9 

FI 

212 A 

FB 

212B 

C9 

2120 

3C 

212D 

FE52 

212F - 

CO 

2130 

3E22 

2132 

09* 

21TS3 * 


2134 

21 22: 



OFC 

IF 

RAR 



:OFD 

4F 

MOV 

C, A 


OFE 

70 

MOV 

A? B 

5 WHAT STATE ARE WE IN? 

■off 

A 7 

ANA 

A 


100 

FA 210D 

JM 

SIDING 

5 1 COUNTING STATE? 

:i03 

2011 

JRNZ 

SIDIN1 

5 JUMP IF IN MIDDLE OF C 



HAR 





S WE ARE WAITING FOR A 

START BIT 

:ios 

CB79 

BIT 

7,0 

5 DID WE GET ONE? 

:107 

20 IF 

JRNZ 

SIDIN3 

? JUMP IF RIGHT 

: 109 

0608 

MV I 

B, 8 

; SET WAITING FOR 8 BITS 

:iob 

18 IB 

JMPR 

SIDIIM3 

; AND GO GONZO 


; TAPE INPUT WAS RECENTLY TURNED ON, AND WE ARE 
WAITING FOR 

? SEVERAL. SEARCH WINDOWS IN A ROW TO EACH SHOW A 
1 BIT 

5 IMPLYING THAT THIS BEASTIE' IS REALLY WORKING 
SIDINGS I NR B 5 ASSUME WE GOT IT : 

BIT 7,0 ■ y' 

JRNZ SI DINS 5 JUMP IF GOOD ASSUMED 

N 

5 NO RESET COUNTER AND WAIT SOME MORE 
MVI B,8TPBCT 

JMPR SIDIM3 

? IN THE MIDDLE OF A CHARACTER.„. 

5 WAS THIS THE LAST BIT? 

SIDIMIS DJNZ SIDINS 5 JUMP IF NOT 

5 WELCOME TO LAST BIT8VILLE 


,?■/ 3 



LHL.D 

CONPRO “ 

GET POINTERS 

MOV 

A, L 


CALL 

BUMPTR 3 

A=P+1 

CMP 

H 5 

IS C = P+1? 

JRZ 

SIDINS 5 

YEP - FULL - 

STA 

PROPTR ? 

STUFF P+1 

MV I 

H,TAPBUF> 

8 5 POIls 

MOV 

M, C 


EXX 



POP 

PSW 


EX 



RET 




IGNORE 


FER 


ZRONKs 


” SUBROUTINE TO INCREMENT 1 BYTE POINTER TO CIRC 
ULAR BUFFER 

BUMPTRs INR A 5 BUMP IT 

CPI TBFENB&OFFH- 

RNZ S QUIT IF NOT AT END 

MVI A,TAPBUF&GFFH 3 ELSE WRAP AROU 

ND 

RET 

; ROUTINE TO ESTABLISH TAPE UNIT AS INPUT DEVICE 


TIMPESs DI 
LX I 


H, ( (TAPB:UF8<0FFH ) <8) + C TAPBUF&OFFF 
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217D 

CD 21 El 

CALL 

TSTVFF S GET FIRST VAR 

2180 

D5 

PUSH 

D 

2181 

11 4EB0 

LX I 

D 7 BCDA1 5 CONVERT TO BCD 

2184 

CD 21FE 

CALL 

ASCBCD 

2187 

Dl 

POP 

D 

2186 

OF 

T8TCC 

COMMA,PIXDUD ? INSIST ON COMP 



ASC RSI 

1 

2189 

20 

+ „ BYTE 

COMMA 

218 A 

bA 

+ .BYTE 

PI XDUD —— 1 



+ 3 


218B 

CD 21El 

CALL 

TSTVFF 5 GET 2ND VAR 


FI 

POP 

PSW ‘ 

21 OF 

D5 

PUSH 

D 

2190 

11 4EB9 

LX I 

D •, BCDA2 ? SAME STORY 

2193 

F5 

PUSH 

! :: ’SW 

2194 

CD 21FE 

CALL 

ASCBCD 

2197 

11 4EB0 

LX I 

D j BCDA1 

219A 

Fi 

POP 

PSW 

219B 

0609 

MV I 

B, 9 

219D 

CD 21E8 

CALL 

DOBCDO 

21 AO 

Dl 

POP 

D 5 SCAN FOR PLACE 



TO STORE 


21A1 

CF 

TSTCC 

COMMA,PIXDUDC RST 1 

21A2 

20 

4 .BYTE 

COMMA 

21 A3 

41 

+ .BYTE 

PI XDUD-,. -1 



4 li 


21A4 

CD 21El 

CALL 

TSTVFF 

21A 7 

D5 

PUSH 

D 

21A 8 

11 4EB0 

LX I 

D,BCDA1 



? ARG1 CONTAINS THE RESULT - STICK IT LAST VAR 

21AB 

01 1200 

LX I 

B*120OH 

2 j AE 

EB 

BCDASC s XCHG 


21 AF 

FF 

INDEX!'* 

i C INTP7. t: „ I FE . INIP „ , Z RST 7II 3 

21 BU 


4* u BYTE; 864-03 


21 B1 

0630 

ADI 

0 

21B3 

EB 

XCHG 


21B4 

CD 2FE8 

CALL 

8 THL 

21B7 

23 

I NX 

H 

2 IBS 

■*“» o 

I NX 

H 

21B9 

00 

I NR 

0 

21 BA 

1 OF 2 

DJNZ 

BCDASC 

21BC 

Dl 

POP 

D 

21BD 

F 7 

RST 

RSTFIN 



S FUNCTION TO 

RETURN STATE OF ADDRESSED PIXEL 



5 IE... PIX(X, 

Y)= 1 IF PIXEL IS 1, 0 IF 0 

21 BE 

CF 

PIXFUNs TSTC 

PI XDUDi: RST 1 

21BF 

VIL O 

4 „BYTE 

•*“ f **' 

21 CO 

24 

+ „BYTE 

FIXDUD-.-l 



+ 3 


21 C 1 

05 

PUSH 

B 

21 C 2 

D7 

RST 

RSTEXP 

2103 

E5 

PUSH 

H 

2104 

CF 

TSTCC 

COMMA,PIXDUDE RST 1 

2105 

20 

+ .BYTE 

COMMA 

2106 

IE 

+ .BYTE 

PIXDUD-.—1 
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+ ] 


2IC7 

D7 


RST 

RSTEXP 

21C8 

CF 


TSTC 

FT XDUDC RST 1 

21C9 

29 

"h 

. BYTE 

•' ) •- 

21C A 

1A 

“t” 

. BYTE 

PIXDUD-.—1 



4-3 



21CB 

Cl 


POP 

B 

2 1 CC 

D5 


PUSH 

D i SAVE PTR 

21 CD 

55 


MOV 

D 7 L 

2 ICE 

59 


MOV 

E 7 C 

21CF 

CD 23BE 


CALL 

R2A 

21D2 

EEs 


XCHG 


21D3 

FF 


INDEXB 

11:1 NTP7.C . IFE . I NIP. , r: RST 7 3 3 

21D4 

5D 

+ „BYTE 

92+1 :i 


2 IDS 

2003 


„ WORD 

FTXTBL 

2 ID 7 

1A 


LDAX 

D ? GET BYTE FROM SCREEN 

2 IDS 

A6 


ANA 

M 5 MASK OFF NONSENSE 

2109 

2600 


MV I 

H, 0 

21DB 

6C 


MOV 

L 7 H 

2 i DC 

Dl 


POP 

D 

21DD 

Cl 


POP 

B 

2 IDE 

C8 


RZ 


2 IDF 

2 >3 


I NX 

H 

21E0 

C9 


RET 




5 SUBROUTINE TO 

GET VARIABLE MAKING SURE IT IS 



NE 



2 is 

CD 29AB 

TSTVFFs 

CALL 

TSTV 

21E4 

DO 


RNC 

5 GO BACK IF GOOD 



5 ELSE 

FALL INTO ,« . 

21E5 

C3 2945 

PIXDUDs 

JMP 

QWHAT 



5 SUBROUTINE TO 

IT 1 

21ES 

FE&2 

DQBCDOs 

CPI 

62H 1 < MULT? 

1 1C. ("i 

300A 


JRNC 

BCD3 S NO 

2 1 EC 

FE2D 


CPI 

? YES IS IT MINUS? 

21 EE 

2803 


JRZ 

BCD2 5 ...JUMP IF SO 

21F0 

FF 

intp. , r: 

BCDADD 
RST 73 3 

3 NO - ITS ADD THENCINTP% L .IFE 

2 1 H 1, 

/_, y 

+ „ BYTE 

98+0 2 


21F2 

C9 


RET 


21F 3 

FF 

BCD 2 s 

BCDSUB 

5 SUBTR 11:1 NTP% C . I FE . I NT P. , t R 



7311 



21F 4 

64 

-KBYTE 

100+03 


21F5 

C9 


RET 


21 F 6 

2003 

BCD35 

JRNZ 

BCD4 § JUMP IF NOT = TIMES 

2 x. S'“ *3 

FF 

ST 7113 

BCDMUL 

1 ELSE MULT!; INTP “XT - IFF „ INTP. '■> 

21 F‘ v 

66 

+.BYTE 

102+03 


21 FA 

C9 


RET 


2 ILF 13 

FF 

BCD4S 

ecDDivn: 

NTP%C. IFEE: . INTFS , ERST 7 3 3 

Id 1F C 

68 

+ «BYTE 

104+03 


21 ¥ : D 

C9 


RET 




? SUBROUTINE TO 

CONVERT ASCII STRING TO DC? 



5 HL = 

ASCII IN v 

: DE-BCD- OUT 


OUTs DE=ASCII IN BUMPED, HL=BCD OUT NOT BUMPE 


D 
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21FE 

EB 

ASCBCDs XCHG 

LX I 

ASCBCls CALL 

X-T/ *?. *“> A A 



i, F 1 ' 
2202 

CD 2FD0 

LDb 



2205 

PP 

STORED 

JEINTP^C. If 

"E . IN 

tp. ■; crst 7 ::i :i 

2206 

p CD 

+.BYTE 88+01 




”'”i •“> Cj O 

DC 

I MR 

T i\| V 

n 



2209 

;i 3 

I NX 

aw* 

D 



220A 

10F6 

DJIMZ 

nr t 

ASCBC1 




l.4* 

nc. t 

5 BOX DRAW ROUTIME 



220D 

07 

BOXDRW* RST 

RSTEXP 

3 GET 

x 

220E 

E5 

PUSH 

H 



2 2 OF 

CF 

TSTCC 

COMMA 3 Bf 

nxnuo 

3 FIND COMMA 



RST 1 





2C 

-i- . BYTE 

COMMA 





4 * ti BYTE 

, 0 ju. “I 

BOXDUD 

tt i 


*77*j 

D7 

RST 

RSTEXP 

3 GET 

Y 

22 13 

\„Z. 

PUSH 

H 



2214 

CF 

TSTCC 

COMMA , BC 

IXDUDil 

RST 1 

2215 

2C 

+ .BYTE 

COMMA 



2 2 J. 6 

50 

+ » BYTE 

BOXDUD-. 

1 

t 4. 


22 i 7 

CD 22B6 

j 

CALL 

EXPRCP 

? xs 


..i;« 2 i A 

F5 

PUSH 

PSW 



221B 

CF* 

TSTCC 

COMMA ■> BC 

3XDUD1: 

RS1 1 

2 21 . L- 

2C 

+ . BYTE 

COMMA 



22 ID 

49 

+ . BYTE 

BOXDUD-, 

. -1 




+ 3 




=v< •’ 

CD 22B6 

prE? 

CALL. 

p| fC-LJ 

EXPRCP 

DCM 

? YS 


k* V " 8 V 7 

CF 

r uon 

TSTCC 

r OW 

COMMA , BC 

3XDUDC 

RST 3. 

2 2 2 

2C 

+ . BYTE 

COMMA 



2224 

42 

+ BYTE 

.j,, 1 

BOX DUD-,, 

, -1 


2225 

D7 

■ J 

RST 

RSTEXP 



2226 

D5 

PUSH 

n 

A.. 1 



2227 

DDE 1 

POP 

X 



2 2 2 ! y 

FI 

POP 

PSW 

5 REES' 

TORE YS 

222A 

47 

MOV 

B, A 



222B 

FI 

POP 

PSW 

? AND 

XS 

222G 

4F 

MOV 

C ? A 



Sop 

70 

El 

MOV 

POP 

A,L 

H 

5 PRE;: 

SERVE FLAG 

222F 

55 

MOV 

Co l 



223U 

El 

POP 

H 



2231 

50 

MOV 

Ei L 



2232 

f t f 

MOV 

L 3 ft 





3 NOW WE HAVES 

B=-YSi C~ 

=XS, D s 

= Y ? E “ r - X ? L — F L A G 



.5 LIMIT CHECK 

Y 



222*3 

60 

MUV 

H,B 



2234 

25 

DCR 

H 



"-p'*?*«» 5 

UB3C 

SRLR 

H 



■ 2237 

7 A 

MOV 

A,D 
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2233 

CD 226A 


CALL 

SABS 


223B 

84 


ADD 

H 


223C 

FE2C 


CPI 

44 


223E 

3023 


JRNC 

BOXNDR 


2240 

7 A 


MOV 

A 7 D 


2241 

84 


ADD 

H 


2242 

57 

? AMD X 

MOV 

D» A 


lltM 4 “.-I* 

61 


MOV 

H 7 C 


2 2 4 4 

CB3C 


SRLR 

H 


2246 

yp 


MOV 

A,E 


2247 

CD 226ft 


L* ALL 

SABS 


2 24 ft 

84 


ADD 

H 


224B 

FE51 


CPI 

8 1 


224D 

3014 


JRNC 

BOXNDR 


224F 

7B 


MOV 

A,E 


2250 

94 


SUB 

H 


cr ■! 

“m* «l’« 

5F 


MOV 

E, ft 




? DIDDL 

E WITH F 

LAG BYTE 


2 2 5 2 

7D 


MOV 

A j L. 


2253 

E603 


AN I 

3 5 MODUL 

.0 4 

p «p nr er.j 

28 OC 


JRZ 

BOXNDR 1 SKIP 

DRAW IF ZERO 

•”« ETj **T 

D 602 

SK 

SUI 

2 ! ELSE 

SUBTRACT 2 Fi 

2259 

F5 

BOXDRis 

PUSH 

PSW 


225A 

CD 23BE 


CALL 

R2A 




5 HL = 

AB 8 ftDDR 

, ft = SA B=YS7 

oxs 

225D 

D30C 


OUT 

MAGIC 


225F 

FI 


POP 

PSW 


2260 

CD 226F 


CALL 

BOX PUT 


■*"? ^ p 

DDE5 

BOXNDRs 

PUSH 

X 



D 1 


POP 

D 


2266 

F7 


RST 

RSTFIN 


226 7 

C3 2945 

BOXDUDs 

JMP 

QWHftT 


2 * 16 = A 

A 7 

SABSs 

ANA 

ft 


226B 

FO 


RP 



226C 

LD44 


NEC 



226E 

C9 


RET 





5 SUBROUTINE TO 

DRAW A BOX ON S 

SCREEN 

226F 

5F 

BOXPUT 2 

MOV 

E 7 ft 


2270 

79 


MOV 

A 7 C ? D = 

X / 4 

2271 

OF 


RRC 



• 1 *» A. 2 . 1 . 1 .. 

OF 


RRC 




p:/_ 


AN I 

3FH 


2275 

3C 


I NR 

ft 


2276 

57 


MOV 

D 7 A 




5 PAINT 

FULL BYTE STRIPES 


0977 

4L,.sL. / / 

15 

MPT 1 s 

OCR 

D 


.22 /*c? 

2807 


JRZ 

MPT2 


22 / ft 

3EAA 


MV I 

ft 710101010 B 


227C 

L-lJ 22 V4 


CALL 

STRIPE 


227F 

18F6 


JMPR 

MPT.l 


2281 

79 

MPT 2 s 

MOV 

A*C 


22 B 2 ! 

E603 


AN I 

3 


2234 

3C 


I NR 

A 
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.21 PAGE 13 
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ooot » 

4F 


MOV 

C, A 

2 r“J. 6 

AF 


XRA 

A 

Sicily / 

OD 

I1PT3 5 

DOR 

c 

y y 

2806 


JRZ 

MPT 4 

228ft 

OF 


RRC 


228B 

OF 


RRC 


223C 

F680 


OR I 

1000000OB 

2290 

18F7 

MPT 4 s 

JMPR 

CALL 

MPT 3 

STRIPE 

2293 

AF 

? FALL 

XRA 
INTO . 

A 



? SUBROUTINE 

TO PAINT A STRIPE 

2294 

E5 

STRIPE; 

PUSH 

H 

22 V*D 

C5 


PUSH 

B 

2296 

32 OFF'F 


STA 

URINAL 

jj’j *“/ 

3A 4FFF 


LDA 

URINAL+4000H 

229C 

4F 


MOV 

L 7 ft 

229D 

7B 

STRPls 

MOV 

A 7 E 

229 h 

FE01 


CPI 

1 

.1. 

22 A 0 

2002 


JRNZ 

STRP2 

22A2 

7E 


MOV 

A 7 M 

2 2 A3 

A9 


XRA 

c 

22A4 

AE 

STRP25 

XRA 

M 

22A5 

AI 


ANA 

C 

22 A 6 

ft El 


XRA 

M 

22A7 

77 


MOV 

M, A 

2 ! 2 ! Ay 

7D 


MOV 

A 7 L 

22A9 

L'628 


ADI 

BYTEPL 

22AB 

6 F 


MOV 

L 1 A 

2 LAL 

7C 


MOV 

A 7 H 

22 AD 

CEE 00 


AC I 

0 

22AF 

67 


MOV 

H, A 

22 BO 

1 OEB 


DUN 2 

STRP1 

22B2 

f ** i 


POP 

B 

22B3 

El 


POP 

H 

2 2)3 4 

2 3 


I NX 

H 

22B5 

j*“* Q 


RET 




? ROUT 11 

ME TO 

GET EXPRESSION, MAKING SURE IT IS P 



OSITIVE 





5 AND Mi 

3NZER0 


22 B 6 

D7 

EXPRCPs 

RST 

RSTEXP 

22337 

7C 


MOV 

A , H 

22B8 

B7 


ORA 

A 

22B9 

2 u 8 2 


JRNZ 

L.IMED4 

22BB 

B5 


ORA 

L 

“'"i flV 

28 2 F 


JRZ 

LINED4 

22 BE 

09 

5 LINE I 

RET 

DRAWER 


22 BF 

Ej / 

LINEDRs 

RST 

RSTEXP 

22C0 

7D 


MOV 

A, L 

22 C 1 

F5 


PUSH 

PSW 

•p ’*’s {*“• 'P 

CF 


TSTCC 

COMMA , LINED4C RST 1 

22C3 

+ £n*! L 

, 4 . 

„ BYTE 

COMMA 

22C4 

2Q 

4- 

4* 1 

»BYTE 

LINED4”»“1 
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22C5 

D7 

RST 

RSTEXP 


22C6 

7D 

MOV 

A,L 


221 ; / 

F5 

PUSH 

PSW 


22 C 8 

CF 

LINED!s TSTCC 

COMMA,LINED4E 

9?f: 9 

2C 

•i" „ BYTE 

COMMA 


22CA 

22 

-4- . BYTE 

‘1 

LINED4- 

-.-i 

22 CB 

D7 

3" J 

RST 

RSTEXP 


22 CC 

44 

MOV 

B,H 


22CD 

4D 

MOV 

CO L 


22CE 

D5 

PUSH 

D 


22L‘F~ 

DDE 1 - 

POP 

X 


22D1 

ED5B 4EAC 

LDED 

OLDXY 


22D5 

FI 

POP 

PSW 


22D6 

67 

MOV 

H, A 


22D7 

FI 

POP 

PSW 


22D8 

6F 

MOV 

L, A 


22D9 

22 4EAC 

SHLD 

.OLDXY 

5 SET 1 



5 DIDDLE WITH 

FLAG BYTE 


22.DC 

79 

MOV 

A, C 


22DD 

E603 

ANI 

O 


22DF 

2808 

JR 2 

LIMED3 


22E1 

D602 

SUI 

2 


22E3 

32 4E5B 

LINED2S STA 

PIXVAL. 

? SET 

22E6 

CD 22F0 

CALL 

DVECT 


22 E 9 

DDES 

LINEDS: PUSH 

X 


22EB 

D1 

POP 

D 


,»L t 

F7 

RST 

RSTFIN 


22ED 

C3 2A4C 

LINEB4* JMP 

QHUW 



_ — 

? LARRY LIVERMORE'S VEC 

:TOR DRAl 



? H=Y1, L=X 1, 

D=Y2» E=X2 

'“'?CA 

D5 

DVECTs PUSH 

D 


•■?*•? F1 

'4+»t l tin 

45 

MOV 

B> L 


22F2 ' 

4B 

MOV 

i j ^ B 


22F3 

OOOf’ 

CALL 

CDELTA 


22F6 

b 8. 

MOV 

E,B 


22F / 

69 

MOV 

L, C 


22F8 

44 

MOV 

B, H 


22F9 

4ft 

MOV 

C ■> D 


22F" A 

CD 238C 

CALL 

CDELTA 


22FD 

61 

MOV 

H, C 


22FE 

50 

MOV 

D t B 




? WE NOW HAVES 

H=SGN(DY), L=SC 



■J D=ABS (DY)i E 

=ANS<DX> 


22b b 

22 4E5E 

SHLD 

INCRO 

• ■ 



5 DECIDE WHICH 

DELTA IS 

LARGER 



? CALL BIGGER 

MX, SMALLER MM 

2302 

2304 

0E00 

7 A 

MVI 

MOV 

&$r * 

; a ; i > p\\w 

2305 

BB 

CMP 

E 

2306 

3803 

JRC 

VfcJJ 1 


2308 

53 

MOV 

D, E - 


2309: 

5F 

MOV 

. B t A 


23 U A 

OC 

INR 

c 


230B 

7 A 

VECTl: MOV . 

a,d yj 

5 MX TC 


RST 


SET MEW LAST PLACE 


PIXVAL 




'j 


(#- 
















TDL Z80 
.MAIN. - 

CP/M DISK ASSEMBLER 

VERSION 2. 

21 

230C 

CB3F 

SRLR 

A 

230E 

47" 

MOV 

B, A 

2301" 

EB 

XCHG 


2310 

22 4ESC 

SHLD 

MNMX 

2313 

D1 

POP 

D 

2314 

7D 

MOV 

A, L 

23 1 5 

3C 

I MR 

A 
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RITTEN 

5 THE INFAMOUS 


3 MAKE SURE LAST PIXEL W 
IXEL PAINTING LOOP 


2316 

F5 

VECT2S PUSH 

PSW 

2317 

CD 23AE 

CALL 

R2ACLP m 

231A 

3819 

JRC 

VECT2A 

231C 

C5 

PUSH 

B 

23 ID 

E5 

PUSH 

H 

231E 

4F 

MOV 

L> *.» A 

231F 

0600 

MV I 

BvO —■ 

232 1 

21 2003 

LX I 

h,pIxtbl 

2 c} 2 -4 

09 

DAD 

B 

2325 

46 

MOV 

B,M 

2326 

El 

POP 

H 

2327 

3A 4E5B 

LDA 

PIXVAL 

232A 

FED 1 

CPI 

1 

232C 

2002 

JRNZ 

VECT9 

232E 

7E 

MOV 

A 7 M 

232F 

A 8 

XRA 

B 

2330 

A EE 

VECT9S XRA 

M 

2331 

AO 

ANA 

B 

222*7 

AE 

XRA 

M 

•“« **;:« 

77 

MOV 

Mi A 

2334 

C1 

POP. 

5 INCREMENT C 

oordinates 

•“1,0 

2A 4E5C 

VECT2AS L..HLD 

MNMX 

•o *'"« o 

78 

MOV 

A i B 

2339 

84 

ADD 

H 

233A 

BD 

CMP 

L 

233B 

38 OD 

JRC 

VECT4 

2331) 

95 

SUB 

L 

233E 

4 7 

MOV 

B, A 

233F 

2ft 4E5E 

LHLD 

INCRO 

2342 

7A 

MOV 

A, D 

2343 

84 

ADD 

H 

2344 

57 

MOV 

Dr A 

2345 

71-3 

VECT3 s MOV 

Aj E 

2346 

o 5 

ADD 

L 

2347 

5F 

MOV 

h i A 

2348 

1 SOB 

JMPR 

VECT5 

234A 

47 

VECT4s MOV 

Bi A 

234B 

2A 4E5E 

LHLD 

INCRO 

234E 

/ 7 

MOV 

A,C 

234F 

OF 

RRC 


2350 

30F3 

JRNC 

VECT3 

2352 

/A 

MOV 

A i D ; 


84 

ADD 

H 

23S4 

pr? 

MOV 

3 END OF LOOP 

Di A 
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PAG 


2355 

FI 

VECT5 s POP 

PSW 

2356 

3D 

DOR 

ft 

2357 

20 BD 

•JRNZ 

VECT2 

2359 

09 

RET 




; SUBROUTINE TO 

LOAD HL 



? FROM DEVICE VARIABLES 

235A 

!”■ 5 

LDVDMCs PUSH 

PSW 

235B 

3A 4EAA 

LB A 

VDMY 

235E 

2F 

CM A 


225F" 

0629 

ADI 

41 

2361 

FE51 

CPI 

81 

2 3 6 3 

3801 

JRC 

LDVDM1 

2365 

AF 

XRA 

A 

2366 

67 

LDVDMis MOV 

Hi A 

2367 

3 A 4 b. A 8 

LDA 

VDMX 

236A 

C64D 

ADI 

77 

2360 

FE9D 

CPI 

157 

236E 

3801 

■JRC 

LDVDM2 

2370 

AF 

XRA 

A 

2371 

6F 

LDVDM2S MOV 

L»A 

■t'.'L 

F1 

POP 

PSW 

2373 

09 

RET 




? SUBROUTINE TO 

STORE Hi. 



ICE VARIABLES 


2374 

E5 

STVDMCs PUSH 

H 

2375 

70 

MOV 

A, H 

■“7376 

D629 

SUI 

41 

2378 

2F 

CM A 


2379 

6F 

MOV 

L, A 

237A 

CD 28ft F 

CALL 

SGNEXT 

237D 

22 4EAA 

SHLD 

VDMY 

2380 

El 

POP 

H 


7D 

MOV 

A, L 

2332 

D64D 

SUI 

'••y *‘T 

2384 

6F 

MOV 

[ % a 

'2335 

CD 2SAF 

CALL 

SGNEXT 

2388 

22 4EA8 

SHLD 

VDMX 

238B 

r-o - 

RET 

« C* f ! D O r» 1 * T T K i cr t n 

r-nMOi !Tir 


OUT OF RANGE? 
MO 


DIDDL 


WITH X 


"WO COORDINATES 


2330 

p,” SC” 

CDELTAS PUSH 

H 

238D 

D5 

PUSH 

D 

238E 

69 

MOV 

L,C . 

238F 

CD 28AF 

CALL 

SGNEXT 

2392 

EB 

XCHG 


2 >3 V S 

68 

MOV 

"l,b 

2394 

CD 28AF 

CALL 

SGNEXT 

2397 

AF 

XRA 

A 

O <Q 3 C« 

ED52 

DSBC 

D 



! COMPUTE SON (DELTA) Ai’ 

239A 

B4 

ORA 

H 

23VB 

2807 

JRZ 

CDELTi 

239D 

4F 

MOV 

C, A 

239E 

7Q 

MOV 

A,L 

239F 

ED44 

NEC 



DEV 
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23 A1 

47 

MOV 

B» A 

23A2 

1807 

JMPR 

CDELT3 

23A4 

B5 

CDELTls ORA 

L 

23A5 

2802 

JR 2 

CDELT2 

23A7 

3E01 

MV I 

A, 1 

23 A 9 

45 

CDELT2” MOV 

B,L 

23ft A 

4F 

MOV 

C, A 

23AB 

D 1 

CDELT3s POP 

D 

23 AC 

El 

POP 

H„ 

23Ai:t 

C9 

RET 

5 RELATIVE TO 

ABSOLUTE 

23AE 

7B 

R2ACLPs MOV 

A,E 

23AF 

FE50 

CP I 

80 

23B1 

3803 

JRC 

. . OKY 


23B3 

23B5 


FEBO 

D 8 


POS CASE 0 ? 


CPI 

RC 


OBOH 


•{Hi. 80 !Hi- 



23B6 

7 A 

..OKY! MOV 

A i D 

23 B7 

FE2C 

CPI 

44 

23B9 

3803 

JRC 

R2A 

23 BB 

FED 4 

CPI 

0D4H 

23BD 

D 8 

RC 




5 RELATIVE TO 

ABSOLUTE CONVERSION 

23 BE 

D5 

R2A3 PUSH 

D 

23BF 

7 A 

MOV 

ft, D 

2300 

2 F 

CM A 


23 n i. 

C62C 

ADI 

44 

21 Min 2 

57 

MOV 

D,A ‘ ■ 

23C4 

7B 

MOV 

A ,E ' 

23C5 

C650 

ADI 

80 

23C7 

5F 

MOV 

E ■> A 

23C8 

AF 

XRft 

A 

23C9 

FF 

RELAB1 

CINTP7.C. IFE . INTP. » CRST 73 


+ &P 


SCA 

:CB 

3 A 

EB 

+.BYTE 

58+03 

XCHG 


cc 

CD 

D 1 

C9 

5 KB -- 
YBOARD 

POP 

RET 

FUNCTION 

D 

TO RETURN 

CE 

C5 

GETKB i: 

RUSH 

B 

CF 

D5 


PUSH 

D 

DO 

CD 2D9C 


CALL 

CHKIO 

D3 

D 1 


■ pop 

D 

04 

Cl 


POP 

B 

D5 

6 F 


MOV 

L, A 

D 6 

D 8 

2600 

C9 

5 DEVIC 
T 

PUTIOs 

MV I 

RET 

E VARIABL 

H 5 0 

_E TO OUTPl 

:D9 

EF 

RST 

RSTPAR ; 

iDA 

CF 

RST 

TSTC 

1 

, PUTCD 

!DB 

3D 

•4" 

. BYTE 


DC 

26 

4* 

+ 3 

. BYTE 

PUTCD2 - 


GET PORT # 

2 ■ ? GET EQUALSC 
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23DD 

E5 


PUSH 

H ? 

23DE 

D7 


RST 

RSTEXP S 



LLOWING 



23DF 

7D 


MOV 

A,L ? 

23 EO 

El 


POP 

H 5 

23E1 

C5 


PUSH 

B 

23E2 

44 


MOV 

B,H 

23E3 

4D 


MOV 

Ci L 

23E4 

ED79 


OUTP 

A ? 

23E6 

Cl 


POP 

B 

23E7 

F7 


RST 

RSTFIN 5 



5 FUNGI 

ION TO 

RETURN VALUE 

23E8 

EF 

IOFUNs 

RST 

RSTPAR ? 

23E9 

C5 


PUSH 

B 

23EA 

44 


MOV 

B,H 

23EB 

4D 


MOV 

C,L 

23EC 

ED 78 


IMP 

A 

23EE 

6F 


MOV 

L, A 

23EF 

2600 


MV I 

H i 0 

23 FI 

C 1 


POP 

B 

23F2 

C9 


RET 




5 DEVIC 

E VARIABLE TO PLAY 

23F3 

OF 

PUTMUs 

TSTC 

, PUTCD: 

23F4 

3D 

-h 

. BYTE 

^ =S 

23 F 5 

OD 

"h 

. BYTE 

PUT CD2-. 



+ 3 



23F6 

D7 


RST 

RSTEXP 

23F7 

7D 


MOV 

Ai L 

23F8 

CD 2E86 


CALL 

PNOTE 

23FB 

F7 


RST 

RSTFIN 



5 DEVIC 

E VARIABLE TO OUTPt 

23FC 

CF 

PUTCDs 

TSTC 

, putcd: 

23FD 

3D 


. BYTE 

*** = **' 

23FE 

04 

+ 

. BYTE 

PUTCD2-. 



+ 3 



23FF 

D7 


RST 

RSTEXP 

2400 

7D 


MOV 

A 1 L 

240:1. 

DF 


RST 

RSTOCH 

2402 

F7 


RST 

RSTFIN 

24 US 

C3 2945 

PUTCD2S 

JMP 

QWHAT 



? ROUTINE TO T 

RANSFER CONI 



GE SUBROUTINE 


2406 

21 240F 

DOCALLs 

Af' L;-* 

LX I 

H 7 BBRET 5 

2409 

E5 

HL t \ 

PUSH 

H 

240A 

D7 


RST 

RSTEXP j 

240B 

E9 


PCHL 

*? 



5 COMMAND TO RESTORE TINY 

P .—. 

240C 

CD 2410 

/'TRETUR: 

_CALL_ 

TRTFST^ 

240F 

F7 

•BrigSir: 

J 

•RSTFIN 5. 

2410 

DB12, 

TBIESTs 

IN 

—rapE'io • 



ACE 



2412 

E602 


jm* - 


2414 

20FA 


uasitt-— 

—fgrfgST- 


SAVE PORT # ' 

EVALUATE E XPRESSION FO 

A=VALUE TO OUTPUT 
RESTORE PORT # 


IT 1 
GO HOME: 

: OF A GIVEN 10 
GET PORT NUMBA 


RST 


RST 


PL 


RETURN ADDR ON ST 


GET ADDRESS 
AND JUMP TO IT 


(psJT 
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0 




0 ZERO ^ 


>:4 i >6 

32 4E::JJ2 


T APE- bl 

•'"♦/I 1 o 

opyjq 



.*:..**r X / 



n 7 ■ 

241B 

52 4B.Ro 

5 ACTIVATE TINY 

ITEiv 1 bJl 

BASIC INTERRUP 

a*:! 4.1E:. 

F3 

DI 


2 4 IF 

ED5E 

I M2 


2421 

3E20 

MV I 

A,ITAB>8 

2! 4 3,:! 5 

ED 4 7 

STAI 


♦li-t- S *ti*» *Sm‘ 

3E0S 

MV I 

Ai 8 

2427 

D30E 

OUT 

INMOD 

2429 

3EC3 

MV I 

A 7 200 

242B 

D30F 

OUT 

I ML IN 

242D 

3 Erl 6 2 

MV I 

A,ITAB&OFFH 

242F 

D30D 

OUT 

INFBK 

2431 

FB 

EI 


2432: 

j'”' C/ 

RET 




5 ** TINY BASIC 

EXECUTION STAR 



1 CLEAR WHOLE K 

IT AND KABOODLE 

2433 

AF 

BEGINS XRA 

A 

2434 

D30C 

OUT 

MAGIC 

2436 

67 

MOV 

14, A 

2437 

6F 

MOV 

Lv A 

2438 

47 

MOV 

B, A 

2 i&|.. "^“5 *-/ 

70 

BEGIN!s MOV 

M ? B 

243A 

2 5 

I NX 

H 

243B 

7C 

MOV 

A, H 

243C 

FE50 

CPI 

50H 

243E 

20F9 

JRNZ 

BEGIMl 

*7 ^ F'} ; 

31 4FCE 

LX I 

SP i SYSRAM 

2443 

FI¬ 

ENTER CR: 

qy "7 

2444 

DO 

+„BYTE 0 


ooo i 


+.INTP.=13 




SETOUT 

1 EINTPXC.IFE . 

2445 

17 

4-., BYTE 22+i 3 


2446 

BO 

. BYTE 

176 ■ 

2447 

2 U 

. BYTE 

44 


U 5 

. BYTE 

8 



EMUSIC 

j. ? 6 HU 1 



« Jj'"’» IN f H# -$ !L Rb 

T 73 3 

2449 


-K BYTE 20+ i . 

::i 



SET’S 

1CINTP7.C. IFE „ 

244A 

7B 

“K BY ! fc:. 1224-1 j 



•s '"7 
* 1 ' / 

«BYTE 

ILATOR 

0A2 5 SET- 

244C 

4 22 ? 5 

. WORD 

MUZ MO 



? INITIALIZE DE 

VICE VARIABLES 



MOVE 

1CINTP7.C. IFE , 

244b 

5F 

•KBYTE 94+13 


24.4F . 

4t A 2 ! 

»WORD 

DEWAR 

2451 

000 A 

.WORD: 

10 

2453 

20 ID 

. WORD 

INIDEV 



MOVE 

ISIINTPXC: . IFE 

2455 

;::>F 

+.BYTE 94+13 


2456' 

4E66 

, WORD 

ALTFQN. 




V° v ' 


,V\®» 


1MTP« * SIRS! 73 .1 




T l\j T J T 


; Mil 


:rst 733 
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2458 

0007 


. WORD 

7 

245A 

0206 


. WORD 

FNTSYS 




SETW 

1CINTP‘/.C. IFE . INTP 

245C 

7D 

+.BYTE 

1 24**'1 J 


245B 

06 AO 


«WORD 

6A0H 

245F 

4E66 


WORD 

ALTFON 




SETW 

1CINTP'/.C. IFE . INTP 

2 4 61 

7D 

+.BYTE 

124+1II 


2462 

A004 


. WORD 

TEXT+4 

2464 

4E52 


» WORD 

TXTUNF 

2466 

o 


EXIT!:« 

BYTE 2 

0000 


+.INTP.= 

01 ! 


2467 

21 AOO1 


LX I 

H,TEXT+1 

246ft 

3EFF 


MV I 

A,OFFH 

246C 

CD 2FES 


CALL 

STHL 

246F 

CD 2410 

INITOS 

CALL 

TBIEST 

.. 2472 

L-fJ 20 7 A 

I NIT!! 

CALL 

CRLF 



? DIREC 

T COMMAND - TEXT COLLECTOR 

2475 


TELL.! 





5 

LX I 

D»MSG 



5 

CALL 

PRTST 6 

2475 


STOP! 



2475 

31 4FEF 

RST ART s 

LX I 

SP,STACK 

2478 

21 247F 


LX I 

H,XXST1+1 

247B 

2 2 4 b.L-8 


SHLD 

CURRNT 

247E 

21 0000 

XXST15 

LX I 

H i 0 

2481 

22 4EC9 


SHLD 

LOPVAR 

2484 

22 4EC5 


SHLD 

STKGOS 

2487 

3E3E 

XXSI.25 

MV I 

A? 

248*7 

CD 2BD5 


CALL 

GETLN 

248C 

D5 


RUSH 

D 

248D 

11 4ED4 


LX I 

_ D,BUFFER 



/ s IGNORE ANY LEAfiTWCPO"' A 

2490 

1 A 


LDAX 

D * -* 

'2491 

h b c.i* L 

X 

CPI 

> •*’ | 

2493 

200 :t 


JRN2 

XXST4 J 

2495 

13 

V 

-2LKJY 


2496 

CD 2A21 

XXST4s 

CALL 

TSTNUM 

2499 

E7 


RST 

RSTIGN 

249ft 

7C 


MOV 

A ? H 

249B 

B5 


ORA 

L 

249C 

Cl 


POP 

B 

249D 

2b‘4lJ 


J.RZ 

EX ECO 

249r 

22 4E64 


SHLD 

OLDLN 

2 4 A 2 

IB 


DCX 

D 

24 A3 

7C 


MOV 

A 5 H 

24 A 4 

1 2 


STAX 

D 

24A5 

1 B 


DCX 

D 

24 A 6 

.. 7D 


MOV 

A L 

24A7 

12 


STAX 

D 

2 4ft 8 

1 


PUSH 

B 

24 A9 

D 5 


PUSH 

D 

24AA 

/ 


MOV 

A y C 

24 AB 

93 


SUB 

E 

24AC 

F5 


PUSH 

PSW 
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24 AD 

CD 2982 

CALL 

FNDLN 

24-BO 

D5 

■ PUSH 

D 

24B 1 

2010 

JRNZ 

XX STS 

24 B 3 

D5 

PUSH 

D 

24B4 

CD 299F 

CALL 

FNDNXT 

24B7 

Cl 

POP 

B 

24B8 

2A 4E52 

LHLD 

TXTUNF 

24BB 

CD 2A53 

CALL 

MVUP 

24BE • 

60 

MOV 

H,B 

24 BF 

69 

MOV 

Li C 

24C0 

22 4E52 

SHLD 

TXTUNF 

24C3 

Cl 

XXSTSs POP 

B 

24C4 

2A 4E52 

LHLD 

TXTUNF 

24 C7 

FI 

POP 

PSW - 

24C8 

E5 

PUSH 

H 

24C9 

FE03 

CPI 

O 

24CB 

2 te* Li U 

JRZ 

RSTART 

2 4 CD 

85 

ADD 

L 

24CE 

5F 

MOV 

E, A 

24CF 

3E00 

MV I 

A, 0 

24D1 

8C 

ADC 

H 

24D2 

57 

MOV 

D, A 

24D3 

21 A70C 

LX I 

H» DFTLMT 

24D6 

24 D 7 

EB 

CD 202F 

XCHG 

CALL 

COMP 

24 DA 

D2 297C 

JMC 

QSORRY 

24DD 

22 4E52 

SHLD 

TXTUNF 

24E0 

D1 

POP 

D 

24E1 

CD 2A65 

CALL- 

MVDOWN 

24E4 

D1 

POP 

D 

24E5 

El 

POP 

H 

24E6 

CD 2A53 

CALL 

MVUP 

24E9 

189C 

JMPR 

XXST2 

24EB 

E7 

! DIRECT AND 
EXECO: RST 

EXEC 

RSTION S GET 

24 EC 

D5 

PUSH 

D 

24ED 

FE&S 

CPI 

68H ? IS 

24EF' 

3813 

JRC 

EXECOA ? NO 

24F i 

FE75 

CPI 

75H 

24 F 3 

3 OOF 

JRNC 

EXECOA 5 NO 

24 F 5 

2 4!~ O 

07 

; ME FOUND A 
IT 

RLC 

MOV 

TOKEN - LOOKUP I 

b i A 

24F7 

1600 

MV I 

D,0 

24F9 

21 IF'76 

LX I 

H,T0KJT-208 

24FC 

19 

DAD 

D 

24FD 

5E 

MOV 

E,M 

24FE 


INK 

H 

24FF 

b6 

MOV 

D,M 

2500 

EB 

D:L 

XCHG 

POP 

D 


I o 

I NX 

D 


ft 



t 1 ' 


a 


tP 


NONBLANK 


TO 
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S NOT A 

TOKEN 

- A VARIABLE PERHAPS? 

2504 

•CD 29AB 

EXECOAs 

CALL 

TSTV 

2507 

3808 


JRC 

EXECOB i NO - SEARCH 1 

2509 

CF 

RST 

TSTC 

1 

EXECOB ? MAYBEL 

2-50A 

3D 

4* 

. BYTE 

3= 

250B 

05 

+ 

. BYTE 

EXECOB -.-1 



+1 



250C 

Cl 


POP 

B ; THROW OUT OLD PTR 

250D 

CD 2918 


call 

SETVI ? ASSIGNMENT 1 

2510 

F7 


RST 

RSTFIN 

2511 

D1 

EXECOBs 

POP 

D 

2512 

21 2B37 


LX I 

HiTAB2-1 

“f ET 

j. o 

E7 

EXECs 

RST 

RSTIGN 

2516 

D5 


PUSH 

D 

2517 

CD 2FD0 

EX is 

CALL 

LDE 

251A 

13 


I NX 

D 

25 IB 

■”:? o 


I MX 

H 

251C 

BE 


CMP 

M 

25 ID 

28F8 


JRZ 

EX 1 

25 IF 

3E7F 


MV I 

A i 07FH 

2521 

IB 


DCX 

D 

2522 

BE 


CMP 

M 

2523 

3808 


JRC 

EX5 

2525 


EX2s 

INX 

H 

cr “**> r 

^ujz,.o 

BE 


CMP 

M 

2527 

30FC 


JRNC 

EX2 

2529 



INX 

H 

252 ft 

D1 


POP 

D 

252B 

18E8 


JMPR 

EXEC 

252D 

7E 

EX5s 

MOV 

A,M 

252E 

2*3 


INX 

H 

252F 

6E 


MOV 

L,M 

2530 

E67F 


AN I 

07FH 

2532 

67 


MOV 

H» A 

2533 

FI 


POP 

PSW 

2534 ' ' 

E9 


PCHL 




? COMMAND TO C 

•LEAR SCREEN 

2535 


CLRSCRs 



2535 

21 4000 


LX I 

H , 4000H 

2538 

7F 

CL.RL.Ps • 

MOV 

A,M 

2539 

E655 


AN I 

01010101B 

253B 

77 


MOV 

M i A, 

253C 

aC. O 


INX 

H 

253D 

7C 


MOV 

A, H 

253E 

FE4E 


CPI 

4 EH 

2540 

20F6 


JRNZ 

CLRLP 



? RESET 

VDM GOODIES 

2542 

D5 


PUSH 

D 

2543 

FF 


MOVE 

1C INTP’/.C . IFE . INTP,. ? ERST 73 

2544 

5F 

+. BYTE 

94+1 3 


2545 

4EA8 


WORD 

VDMX 

2547 

0006 


WORD 

6 

2549 

2023 


. WORD 

INIDEV+6 

254B 

D1 


POP 

D 
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254C 

F7 


P*C;J 

RSTFIN 

254D 

11 AOOO 

RUMS 

LX I 

D,TEXT 

2550 

21 0000 

RUNNXL 

s L XI 

H,0 

2.55 c* 

CD 298A 


CALL 

FMDLP 

2556 

DA 2475 


JC 

RST ART 

2559 

ED53 4EC3 

RUNTSL 

s SDED 

CURRNT 

255D 

CD 2E3F 


CALL 

WHATSU ? CHECK FOR HALT 

2560 

2003 


JRMZ 

..OK ? AND FOR TRACE KEY 

2562 

D5 


F'U'dH 

D 5 TRACE IS WANTED 

2563 

CD 2B25 


CALL 

PRTLN 

2566 

CD 2AB7 


CALL 

PRTSTG 

2569 

D:L 


POP 

D 

256A 


. . OKs 



256A 

13 


INK 

D 

256B 

13 


I MX 

D 

256C 

CD 2E3F 

RUNSML 

s CALL 

WHATSU 5 CHECK FOR INTERRUP 



Y 



256 F 

C3 24EB 


JMP 

EX ECO 

2d / 2 

D7 

GOTO s 

RST 

RSTEXP 

2573 

D5 


PUSH 

D 

2574 

CD 2932 


CALL 

FNDLN 

2577 

C2 2A4D 


JNZ 

AHOW 

257A 

FI 


POP 

PSW 

257B 

18DC 


JMPR 

RUNTSL 



; LIST 

AND PRINT 



? NEW 

- IMPROVED LIST COMMAND 



§ LETS 

YOU PUT’ 

IT IN A PROGRAM 

257D 

21 0000 

LISTS 

L.X I 

H 7 0 5 ASSUME AT EOL 

2580 

E7 


RST 

RSTION 5 IGNORE 

2581 

CD 214B 


UAL L 

ATNL 

2584 

2805 


•JR Z 

LS3 

2586 

FE2C 


CPI 

5 LEADING COMMA? 

2588 

2801 


•JRZ 

LS3 5 YEP - SKIP FIRST 



EX PR G 

ET 




5 NOT i 

AT END - 

GET FIRST EXPR 

258A 

D7 

LS2s 

RST 

RSTEXP 

258B 

E5 

L.S3 s 

PUSH 

H 

? 5 F:f: 

21 FFFF 


LX I 

H, OFFFFH 

258F 

CF 


TSTCC 

COMMA,L84C RST 1 

2590 

2 C 

+ 

. BYTE 

COMMA 

2591 

01 

+ 

.BYTE 

LS4-.-1 



+ 3 



2592 

D7 


RST 

RSTEXP 

2593 

D5 

LS4s 

PUSH 

D 

2594 

FDE 1 


POP 

Y 

2596 

L 


XTHL 


2597 

CD 2982 


CALL 

FNDLN 

259A 

3815 

LS5s 

JRC 

LSQUIT 

259C 

E3 


XTHL 


259D 

7C 


MOV 

A, H 

259E 

B5 


ORA 

L 

259F 

2810 


JRZ 

LSQUIT 

25 A1 

2B 


DCX 

H 

25A2 

E3 


XTHL 


25A3 

CD 2B25 


CALL 

PRTLN 
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25A6 

CD 2AB7 


CALL 

PRTSTG 

25A9 

CD 2E3F 


L-ALL 

WHATSU 

25AC 

CD 298A 


CALL 

FNDLP 

25 A F 

18E9 


JMPR 

LS5 

25B1 

FDE5 

LSQUITs 

PUSH 

Y 

25B3 

Dl 


POP 

D 

25B4 

F7 


RST 

RSTFIN 

25B5 

0E08 

PRINTS 

MVI 

C * 8 

25B7 

CF 


TSTCC 

59,PR1C RS 

25B8 

3B 

4* 

„ BYTE 

59 

25B9 

05 

+ 

+ 2 

. BYTE 

PRl-.-l 

25BA 

CD 2C7A 


L* ALL 

CRLF 

25 BD 

1 SAD 


•JMPR 

RIJNSML 

25BF 

CF 

PR is 

TSTCC 

OR,PR6 C RS 

25C0 

OD 

4* 

. BYTE 

CR 

25C1 

IB 

4- 

, “f 

. BYTE 

PR6-.-1 

25C2 

CD 2C7A 


CALL 

CRLF 

25C5 

1889 


JMPR 

RUNNXL 

25C7 

CF 

F‘R2 s 

TSTC 

PR4C 

25C8 

23 

4- 

BYTE 


25C9 

OB 

+ 

+ 1! 

., BYTE 

PR4-.-1 

25CA 

D7 

F'R3 ’ 

RST 

RSTEXP 

25CB 

3EC0 


MVI 

A,OCOH 

25CD 

A5 


ANA 

L 

25CE 

B4 


ORA 

H 

25CF 

C2 2A4C 


JNZ 

QHOW 

25D2 

4D 


MOV 

C , L 

25D3 

1805 


JMPR 

PR5 

25D5 

CD 2AC5 

PR4 a 

CALL 

QTSTG 

25D8 

1814 


JMPR 

PR 9 

25DA 

CF 

PR5 a 

TSTCC 

COMMA,PR8C 

25DB 

2C 

4 * 

„ BYTE 

COMMA 

25DC 

OB 

4* 

+ 3 

„ BYTE 

PR8-.-1 

25DD 

CF 

PR6 a 

TSTCC 

COMMA,PR7C 

25DE 

2C 

4* 

. BYTE 

COMMA 

25DF 

05 

4- 

„L. "i 

.BYTE 

PR7-.-1 

25E0 

3E20 


MVI 

A, •- 

25E2 

DF 


RST 

RSTOCH 

25E3 

18F8 


JMPR 

PR6 

25E5 

CD 292E 

PR 7 a 

CALL 

FIN 

25E3 

J.8DD 


JMPR 

PR2 

25EA 

CD 2C7A 

PR8a 

CALL 

CRLF 

25ED 

P7 


RST 

RSTFIN 

25EE 

D7 

PR 9 a 

RST 

RSTEXP 

25EF 

C5 


PUSH 

B 

25F 0 

CD 2AE8 


CALL 

PRTNUM 

25F3 

Cl 


POP 

B 

25F4 

18E4 

5 GOSUB 

JMPR PR5 

AND RETURN 

25F6 

CD 2A92 

OOSUBa 

CALL 

PU3HA 
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25F9 

D7 

RSI 

RSTEXP 

25FA 

D5 

PUSH 

D 

25FB 

CD 2982 

CALL 

FNDLN 

25FE 

C2 2A4D 

JNZ 

AHOW 

2601 

2A 4EC3 

LHLD 

CURRNT 

2604 

E5 

RUSH 

H 

2605 

2A 4EC5 

LHLD 

STKGOS 

2608 

FPi 

PUSH 

hi 

2609 

21 0000 

LX I 

H, 0 

260C 

22 4EC9 

SHLD 

LOPVAR 

26 OF 

39 

DAD 

C;p 

2610 

22 4ECS 

SHLD 

STKGOS 

2613 

C3 2559 

JMP 

RUNTSL 

2616 

2A 4EC5 

RETURNS LHLD 

STKGOS 

2619 

7C 

MOV 

A, H 

*»::! 61A 

B5 

ORA 

L 

26 IB 

CA 2945 

JZ 

QWHAT 

26 IE 

F9 

SPHL 


26 IF 

El 

RESTOs POP 

H 

2620 

22 4EC5 

SHLD 

STKGOS 

2623 

El 

POP 

H 

2624 

22 4EC3 

SHIP 

_QL1EBNX— v 

2627 

©9 

('POP 

D \ 

2628 

CD 2A77 

CALL 

POPA \ 

262B 

& 

RST 

RSTFIN.' 



5 FOR AND NEXT" 


262C 

CD 2A92 

FOR; CALL 

PUSHA 

262F 

CD 2912 

CALL 

SETVAL 

2632 

2B 

OCX 

H 

2633 

22 4EC9 

SHLD 

LOPVAR 

2636 

CF 

TSTCC 

1 

77H,FR1A 5 TO?C RST 

2.637 

77 

A 

+ .BYTE 

77H 

2638 

01 

+ .BYTE 

FR1A -.-1 



+■3 


2639 

D7 

FR1s RST 

RSTEXP 

263A 

22 4ECD 

FRIAs SHLD 

LOPLMT 

263D 

21 0001 

LX I 

H, 1 

2640 

CF 

TSTCC 

75H i FR4 ? STEP?!: RST 



1 


2641 

75 

+ .BYTE 

75H 

2642 

01 

+ .BYTE 

FR4 -.-1 



+ 1 


2643 

D7 

RST 

RSTEXP 

2644 

22 4ECB 

FR4S SHLD 

LOPING 

2647 

2A 4EC3 

LHLD 

CURRNT 

264A 

22 4ECF 

SHLD 

L..OPLN 

264D 

EB 

XCHG 


2&4E 

22 4ED1 

SHLD 

LOPPT 

2651 

01 000A 

LX I 

Bj 10 

2654 

2A 4EC9 

LHLD 

LOPVAR 

2657 

EB 

XCHG 



60 

MOV 

Hi B 

2659 

68 

MOV 

Li B 

265A 

Cf : 

DAD 

SP ■ 








TDL Z80 CP/M DISK ASSEMBLER' VERSION 2.21 PAGE 26 

..MAIN,, - 


265B 

1801 


■JMPR 

FR6 

265D 

09 

FR5 5 

DAD 

B 

265E 

7E 

FR6S 

MOV 

A,M 

265F 

2 6 


INX 

H 

2660 

B6 


ORA 

M 

266 i 

2317 


JR 2 

FR7 

2663 

7E 


MOV 

A, M 

2664 

2B 


DC X 

H 

2665 

BA 


CMP 

D 

2666 

2 OF 5 


,JRNZ 

FR5 

2668 

7E 


MOV 

A ^ M 

2669 

AB 


XRA 

E 

266A 

20 FI 


JRNZ 

FR5 

266C 

EB 


XCHG 


266D 

67 


MOV 

H» A 

266E 

6F 


MOV 

L, A 

266F 

* iTn J 


DAD 

SP 

2670 

44 


MOV 

B i H 

216 /1 

4D 


MOV 

C 7 L 

2672 

21 000A 


LX I 

H, 10 

2675 

19 


DAD 

D 

2676 

CD 2A65 


L A L L. 

MVDOWM 

2679 

. p 9 


SPHL 


267A 

2A 4ED1 

FR7 " 

LHLD 

LOPPT 

267D 

EB 


XCHG 


267E 

F7 


RST 

RSTFIN 

267F 

CD 29AB 

NEXT* 

CALL 

T8TV 

2682 

DA 2945 


cjU 

QWHAT 

2685 

22 4EC7 


SHLD . 

VARNXT 

-"“t / rVF’t 

r-scr 

k 1 V *( w 

17 f E Si** 4 * SI 

n 

ooo 


N A 1 w 

f Uon 


2689 

EB 


XCHG 


268A 

2A 4EC9 


LHLD 

LOPVAR 

2 6 8 0 

7C 


MOV 

A,H 

268E 

B5 


ORA 

L. 

2 6 8 P 

L A 2946 


■JZ 

. AWHAT 


CD 202F 


CALL 

COMP 

2695 

2809 


JRZ 

NX2 

2697 

D1 


POP 

D 

2698 

CD 2A77 


CALL 

POPA 

26 9 B 

2A 4EC7 


LHLD 

VARNXT 

269E 

18E8 


•JMPR 

NX1 

2 6 h U 

EB 

MX 2 3 

XCHG 


26 A1 

CD 2FD0 


CALL 

LDE 

26 A 4 

p 


MOV 

L. v A 

2 6 8 5 

13 


INX 

D 

26 A 6 

CD 2FD0 


CALL 

LDE 

26 A 9 

67 


MOV 

H -i A- 

26 H A 

EB 


XCHG 


26AB 

2A 4ECB 


LHLD 

LOPINC 

26AE 

E5 


PUSH 

H 

26AF 

«•“* 

/ «». 


MOV 

A? H 

26 BO 

Afi 


XRA 

D • 

26B1 

7 A 


MOV 

A ? D 

26B2 

19 


DAD 

D ' 

26B3 

FA 26BA 


JM 

NX 3 
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26B6 

AC 


XRA 

H 

26B7 

FA 26El 


JM 

NX5 

26 BA 

EB 

NX3s 

X L-HU 


26BB 

2A 4EC9 


LHLD 

LOPVAR 

26BE 

7B 


MOV 

Pi 7 1— 

26 BF 

CD 2FES 


CALL 

STHL 

26C2 

Z 3 


I NX 

H 

26C3 

7 A 


MOV 

A , I..i 

26C4 

CD 2FE8 


CALL 

STHL 

26C7 

2A 4ECD 


LHLD 

LOPLMT 

26CA 

FI 


POP 

PSW 

26CB 

B7 


ORA 

A 

26CC 

F2 26D0 


UP 

NX4 • 

26CF 

EB 


XCHG 


26D0 

CD 2029 

NX4: 

CALL- 

CKHLDE 

26D3 

D1 


POP 

B 

2&D4 

380D 


JRC 

NX 6 

26 D 6 

2A 4ECF 


LHLD 

LOPLN 

26D9 

22 4EC3 


SHLD 

CURRNT 

26DC 

2A 4ED1 


LHLD 

LOPF'T 

26DF 

EB 


X. cHu 


26E0 

F7 


RST 

RSTFIN 

26E1 

El 

NX55 

PUH 

H 

26E2 

Ei 1 

JvijcxX*. 

’POP 

r? 

26E3 

CD 2A77 

NX 6 s 

CALL 

FORA 

26E6 

F7 


RST 

RSTFIN 


Zi OUUO 
1801 


CD 2AC5 

CD 29AB 
3817 
CD 273E 
11 4ED4 
D7 
D 1 
EB 
7B 

cn 7FES 


it# r6 


? REM ? 


INPUT, LET 

r ’ hVo 


26 EC 

D7 

y pp* » 

RST 

RSTEXP 

26ED 

7C 

IFl! 

MOV 

A,H 

26 EE 

B5 


URA 

L 

26EF 

C2 256C 


JNZ 

RUNSML 

26F2 

CD 29A1 

' new : 

■CALL 

FNDSKP 

26F5 

D2 2559 

JNC 

RUNTSL 

26FS 

C3 2475 


JMP 

RSTART 

26 FB 

2A 4EC7 

INPERRs 

LHLD 

STKINP 

26FE 

F9 


SPHL 


26 FF 

El 


POP 

H 

2700 

22 4EC3 


SHLD 

CURRNT 

2703 

D1 


POP 

D 



INPUT 
j. 1'"' x« 


CALL 

QTSTG 

JMPR 

IPS 

CALL 

TSTV 

JRC 

IPS 

CALL 

IP12 

LX I 

D,BUFFER 

RST 

RSTEXP 

POP 

D : 

XCHG 


MOV 

A, E 

CALL 

STHL 






'DL Z80 

CF/M DISK f 

ASSEMBLER VERSION 2.2: 

1 

MAIN, -• 




27 ID 


I NX 

H 

27 IE 

7 A 

MOV 

A, D 

27 IF 

CD 2FE3 

CALL 

STHL 

2722 

El. 

IP45 POP 

H 

2 7 23 

22 4!::JJ3 

SHLD 

CURRNT 

2726 

D1 

POP 

D 

2727 

F1 

IPS5 POP 

PSW 


CF 

IP6: TSTCC 

COMMA,IPTC 

2729 

2C 

+ .BYTE 

COMMA 

272A 

02 

+ BYTE 

IP7-.-1 



+•] 


272B 

18DS 

.JMPR 

INPUT 

272D 

F7 

IP7s RST 

RSTFIM 

2721:1 

D5 

IPS: PUSH 

D 


UD 29AB 

CALL 

TSTV 

2732 

3003 

■JRNC 

IP 11 

2734 

C3 2945 

IP 10?. JMP 

QWHAT 

2737 

43 

XP11s MOV 

B,E 

/ u”l 1;*/ 

Di 

POP 

D 

2739 

CD 2ADE 

CALL 

PRTCHS 

273C 

1SD2 

JMPR 

IPS 

273E 

Cl 

IP12s POP 

B 

273F 

D5 

PUSH 

D 

2740 

EB 

XCHG 


2741. 

2A 4EC3 

LHL.D 

CURRNT 

2744 

per 

PUSH 

H 

2745 

21, 2705 

LX I 

H, IPI 

2743 

22 4ECS 

SHLD 

CURRNT 

274B 

21 0000 

LX I 

H , 0 

274E 

39 

DAD 

SP 

274F 

33 ,^357 

SHLD 

STKINP 

2752: 

D5 

PUSH 

D 

.,£.7 03 


PUSH 

B 

2754 

3E20 

MV I 

A 7 

2756 

C3 2BD5 

JMP 

GETLN 

2759 

:la 

DEFLTs LDAX 

D 

* 7 *A 

FEOD 

CPI 

CR 

275C 

23L*!- 

JRZ 

IP7 

275E 

C3 2945 

JMP 

QWHAT 



« •!(■•){• E X PR 


2761 

CD 27A9 

EXPR: CALL 

EXPR1 

2764 

p C* 

PUSH 

H 

^ 

21 2B97 

LX I 

H,TAB6-1 

2768 

C3 2515 

JMP 

EXEC 

276B 

CD 2794 

XPRls CALL 

XPR3 

276E 

D3 

RC 


276F 

6F 

MOV 

L , A 

2770 

C9 

RET 


2771 

CD 2794 

XPR2s CALL 

X PRO 

2774 

C8 

RZ 


2775 

6F 

MOV 

L, A 

'2*77/-, 

C9 

RET 


2777 

CD 2794 

XPR3S CALL 

XPRS 

'*•> -y "7 p t 

C8 

RZ 


277B 

D8 

RC 
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277C 

6 F 


MOV 

L, A 

277D 

C9 


RET 


277E 

CD 2794 

XPR45 

CALL. 

XPR 8 

2781 

6 F 


MOV 

L, A 

2782 

C3 


RZ 


2783 

D 8 


RC 


2784 

6 C 


MOV 

L,H 

2785 

C’ 9 


RET 


2783 

CD 2794 

XPRSs 

CALL 

XPR 8 

2789 

CO 


RMZ 


278A 

6 F 


MOV 

L ■? A 

278B 

C9 


RET 


278C 

CD 2794 

XPR 6 S 

CALL 

XPR 8 

278F 

DO 


RNC 


2790 

6 F 


MOV 

L. A 

2791 

C9 


RET 


2792 

El 

XPR7S 

POP 

H 

2793 

C9 


RET 


2794 

79 

XPR85 

MOV 

A v C 

2795 

El 


POP 

H 

2796 

Cl 


POP 

B 

2797 

E5 


PUSH 

H 

2798 

C5 


PUSH 

B 

2799 

4F 


MOV 

C3 A 

2 / 9 A 

CD 27A9 


CALL 

EXPRl 

279D 

EB 


XCHG 


279E 

E3 


XTHL 


279! :r 

CD 2029 


CALL 

CKHL.DE 

27A2 

D 1 


POP 

D 

2 7 A3 

21 0000 


LX I 

H ? 0 

27A6 

3E01 


MV I 

H 7 1 

2 / Afc* 

C9 


RET 


27 A 9 

ui” 

EXPR 1 s 

TSTC 

, XP 

27 A A 

2D 

4- 

. BYTE 


27 AB 

05 

4- 

. BYTE 

xpii-.- 

27 AC 


+1 


H 7 0 

21 OOUO 


LX I 

27 AF 



JMPR 

XP16. 

''>70 

,.iL / A..." ,i 

CF 

xpiis 

TSTC 

, XP 

9 ‘7 p ■:> 

2 B 

-f 

|5yTF 

•" + •'* 

27B3 

0 0 


. BYTE 

XP12-- * 

2704 

CD 27DB 

‘T t ,i ' 

^ jifiit 1 | 

CALL 

EXPR2 

27 B 7 

r,”-* k;* 1 

V p 1 Cl « 

TC;Tr 

■•* + *' , XP 

' '7 P> 

"7; ’O 

•f- 

. BYTE 


9’ 7 pi 9 

1 Si 


BYTE 

v o 1 rrr _ , 

pi l : a U 

27 BA 

per 


PUSH 

LJ 

3 i 

2 / B B 

L- li ad / 1J IB 


CALL 

EXPR2 

/ bb 

EB 

V O *s a 

A! i. * 

XCHG 


2 / BP 

3 


XTHL 


2700 

7C 


MOV 

■A, H 

27 Cl 

A A 


XRA 

H 

0700 

7 A 


MOV 

A ? D 


PAGE 









TDL Z80 { 

;p/m DISK 

ASSE 

•MBLER VER 

SION 2.21 

PAGE 

3 

.MAIN. - 








27 C 4 

D 1 


POP 

D 

27C5 

FA 2787 


JM 

XP13 

27C8 

AC 


XRA 

H 

2 / 1...* 9 

F2 27B7 


JR 

XP13 

27CC 

C3 2ft4C 


JMP 

QHOW 

27 CF 

r»p 

y p -f c:- u 

TSJC 

.•**, XPE9E RST 1 

27D0 

2D 

4- 

. BYTE 


27 D1 

AO 

4- 

a BYTE 

XPR9-.-1 

■ili. F I.J- >t2 

E5 

4- j 

XP163 

PUSH 

H 

27D3 

CD 27DB 


CALL 

EXPR2 

27D6 

CD 28FD 


CALL 

CHGSGM 

27D9 

18E3 


!MDD 

U“K It J \ 

XP14 

27DB 

CD 2840 

E X PR 2! s 

CALL 

EXPR3 

27DE 

CF 

XP 21 s 

TSTCC 

62H»XP24E RST 1 

27DF 

A".? 

-i- 

. BYTE 

/„ t pjLjj 

27E0 

29 

*+■ 

. BYTE 

XP24.. -1 

-i 

E:5 

K r J 

PUSH 

H 

9yC‘'"* 

CD 2840 


CALL 

EX PR 3 

27E5 

0600 


MVI 

BS 0 

27 E 7 

CD 28FA 


CALL 

CHKSGM 

27EA 

E3 


XTHL 


27EB 

CD 28FA 


CALL 

CHKSGN 

27EE 

EB 


XCHG 


27EF 

E3 


XTHL 


27F0 

p 


MOV 

A 7 H 

27F1 

B7 


ORA 

A 

27F2 

2806 


•JRZ 

XP22 

27F4 

7 A 


MOV 

A: D 

27F5 

B2 


ORA 

D 

27F6 

EB 


XCHG 


27F7 

C2 2A4D 


JNZ 

AHOU- 

27FA 

7D 

X P22 » 

MOV 

A 7 L 

27FB 

21 0000 


LX I 

H 7 V 

27FE 

B7 


ORA 

A 

27FF 

2*332 


JRZ 

XP25 

2801 

19 

XP23S 

DAD 

D 

2802 

DA 2A4D 


JC 

AHOW 

2805 

3D 


DOR 

- 

2806 

20F9 


JRNZ 

y o 

2808 

1829 


JMPR 

XP25 

280A 

CF 

XP24s 

TSTCC 

63H,XPR9II RST 1 

280B 

63 

+ 

. BYTE 

63H 

280C 

65 

+ 

. BYTE 

XPR9-. - 1 



+:i 



280D 

E5 


PUSH 

H 

28 OE 

CD 2340 


CALL 

EXPR3 

28 J. 1 

0600 


MVI 

B 7 0 

2813 

CD 28FA 


CALL 

CHKSGN 

2816 

E:,*3 


XTHL 


2817 

CD 28FA 


CALL ' 

CHKSGN 

281A 

EB 


XCHG 


28 IB 

■: . CL’ 


XTHL 


281C 

EB 


XCHG 
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28 ID 

7 A 


MOV 

281E 

B3 


ORA 

28 IF 

CA 2A4D 


JZ 

2 8 k! k! 

05 


PUSH 

2823 

CD 28E5 


L A L L 

2826 

D1 


POP 

2827 

C5 


PUSH 

k! c* k! 8 

CB7A 


BIT 

282A 

C4 28FD 


CNZ 

282D 

22 4EAE 


SHLD 

2830 

El 


POP 

2831 

42 


MOV 

2 3 3 2: 

4B 


MOV 

2833 

D1 

XP25s 

POP 

2834 

7C 


MOV 

2835 

B7 


ORA 

2836 

l“* A 2A4L- 


JM 

2839 

78 


MOV 

283A 

B7 


ORA 

283B 

FC 28FD 


CM 

283E 

139E 


JMPR 

2840 

21 2B6E 

EXPR3S 

LX I 

2843 

C3 2515 


JMP 

2846 

CD 29AB 

NOTFs 

CALL 

2849 

380b 


URC 

284B 

EB 


XCHG 

2840 

CD 2FD0 


CALL 

284F 

p’trj 


PUSH 

2850 

13 


I NX 

2851 

CD 2FD0 


CALL 

2854 

EB 


XCHG 

2855 

67 


MOV 

2856 

FI 


POP 

2857 

6F 


MOV 

2 8 5 »: j 

ij v 


RET 

•*”» CT Q 

L.-Ei 2A2X 

XP323 

CALL 

285C 

70 


MOV 

285D 

B7 


ORA 

285E 

CO 


RNZ 



5 SI NOLI 

z CHAR 

285F 

CF 


TSTC 



CUES?!: 

RST 

2860 

22 

4 

. BYTE 

2861 

09 

4* 

4.1 

.BYTE 

7 

CD 2FD0 

• ..3 

CALL 

2865 

/ r* 

0 r 

'7 iron 

MOV 

2866 

13 

cirUJ 

I NX 

2867 

CF 


TSTC 



AIL I'NGE 

RST 

2868 . 

22 

4* 

. BYTE 

2869 

09 

4 

. BYTE 

286ft 

i;9 

1 J : 

RET 


A 7 D 
E 

AHQW 

DIVIDE 

D ? SIGN STUFF TO DE 

B 5 SAVE DIVIDE RESULT 

7 7 D ", WAS SIGN SET? 

CHGSGN 5 YEP •- CHANGE 

REMAIN 5 STUFF IT 

H 5 RESULT TO HL 

B,D 5 COPY OVER SIGN STUFF 

CUE 

D 

A, H 
A 

QHOW 
A, B 
A 

CHGSGN 

XP21 

H,TAB3-1 
EXEC 
TSTV 
XP32 

LDE 

PSW 

D 

LDE 

H 7 A 
PSW 
L, A 

TSTNUM 
A, B 
A 

STRING CONSTANT? 

, PARN 5 HAVE WE GOT QU 

1 

U 

PARN -1 

LDE 

L,A 5 FAILED TSTNUM SET H TO 

D 

, XPRO 5 ERROR IF NO TR 

1 

■ .** n 

xpro ~„~i 
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1 PAGE 32 

2S6B 

CF FARMS 

TSTC 

C ", XPROt: RST 1 

286C 

28 + 

BYTE 

•" (••• 

2S6D 

05 + 

"f 

. BYTE 

XPR0-.-1 

286E 

r J 

D7 PARNP* 

RST 

RSTEXP 

286F 

CF 

TSTC 

XPRO Z RST 1 

2870 

29 •+• 

. BYTE 

•*“ } •*' 

2871 

01 + 

. BYTE 

XPRO-.-1 


+3 



2872 

C9 XPR9S 

RET 


2873 

C3 2945 XPROS 

JMP 

QUHAT 

2876 

EF RND* 

RST 

RSTPAR 

2877 

7C 

MOV 

A»H 

2878 

B7 

ORA 

A 

2879 

A 2 A 4t- 

■JM 

QHOW 

287C 

B5 

ORA 

L 

287D 

8A 2A4L 

JZ 

QHOW 

2880 

D5 

PUSH 

D 

2881 

EB 

X UHU 

5 DE = RANGE 

•“> o o 

AF 

XRA 

A 

*“>888 

FF 

RANGED C I NTF'7 l . IFE „ INTP, Z RST 7 'J 3 

2884 

73 -KBYTE 

113+011 


2885 

6F 

MOV 

L 7 A 

2886 

AF 

XRA 

A 


FF 

RANGED! 

I NTP7, Z . I FE I NTP, II RST 7 3 13 

“*”i o o o 

76 -KBYTE 

118+03 


28R9 

67 

MOV 

H v A 


; hl = 

RANDOM 4 


288A 

C5 

PUSH 

B 

288B 

CD 28E5 

CALL 

DIVIDE 

y’88F 

Cl 

POP 

B 

2881”* 

D:i, 

POP 

D 

2890 

23 

I NX 

RET 

RST 

H 

2892 

IJV 

EF ABS: 

RSTPAR 

2893 

IB 

DCX 

D 

2894 

CD 28FA 

CALL 

CHK8GN 

2397 

13 

I NX 

D 

2898 

C9 

RET 


28 W 

2A 4E52 SIZES 

LHLD 

TXTUNF 

289C 

D5 

PUSH 

D 

289D 

EB 

XCHG 


239E 

21 A70C 

LX I 

H,DFTLMT 

23 AI 

A 7 

ANA 

A 

28A2 

ED52 

DSBC 

D 

28 A 4 

Dl. 

POP 

D 

28A5 

C9 

RET 



5 FUNC 

TION TO £ 

ENSE DIAL VALUE 

2.8A6 

3E1B GETPOT 

s MVI 

A ■$ 1BH 

28 A 8 

CD 28D8 

CALL 

CHKRNG ? GET DATA 

28AB 

2F 

CM A 


28AC 

D680 

SUI 

80H 

28 AE 

6F 

MOV 

L, A 


? FALL 

INTO ... 



5 SIGN 

EXTEND S 

SUBROUTINE 
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28AF 

2600 

SGNEXT: MVI 

H, 0 


28 B1 

7D 

MOV 

ft 7 L 


28B2 

A7 

ANA 

A 


28B3 

Fo 

RP 



28B4 

25 

DOR 

H 


28 B 5 

C9 

RET 





5 FUNCTION TO £ 

SENSE STATE OF TR 

IGGER 

28 B 6 

CD 28D6 

GETTRGs CALL 

CHKRN1 


29B9 

E610 

AN I 

10H 


.28 BB 

08 

RZ 



28 BC 

20 

I MR 

L 


28BD 

09 

RET 





? FUNCTIONS TO 

RETURN JOYSTICK 

VALUE 



? THESE FUNCTIONS RETURN EITHER 

+1, ,0 OR -1, D 



SPENDING 
? ON JOYSTICK £ 

STATE 


28BE 

CD 28D6 

GETJX « CALL 

CHKRN1 3 FARM 

IN RANGE? 

2801 

OF 

RRC 



o L* 

OF 

RRC 



2803 

OF 

RRC 



28C4 

33 OE 

JRC 

GETJY3 


28C6 

OF 

RRC 



28 C 7 

3807 

JRC 

GETJY1 


28C9 

09 

RET 





? ENTRY FOR Y 

JOYSTICK VALUE 


28CA 

CD 28D6 

GET JY " CALL 

CHKRN1 


28CD 

OF 

RRC 



28CE 

3002 

JRNC 

GETJY2 


28 DO 

2 2 

GET JYis INX 

H 


28D1 

09 

RET 



28D2 

OF 

GETJY28 RRC 



2 8 Dei 

DO 

RNC ' 



28D4 

2B 

GETJY3? DCX 

H 


28D5 

C9 

RET 





5 SUBROUTINE TC 

) GET PARAMETER B 

ETWEEN 1 AND 4 

28D6 

3E0F 

CHKRNls MVI 

A v OFF! 


28D8 

C5 

CHKRNG* PUSH 

B 


28D9 

P5 

PUSH 

PSW 


28DA 

EF 

RST 

RSTPAR 


28DB 

F.t 

POP 

PSW 


2WL.IU 

y!“;? 

ADD 

L 


28DD 

4F 

MOV 

O 7 A 


■ 28DE 

ED 7 8 

IMP 

A 


28E1 

Cl 

21 0000 

POP 

LX I 

B 

H ? 0 


28E4 

09 

RET 





S DIVIDE, SUBDE 

I, CHKSON ■> CHGSGN 

, CKHLDE 

28.E5 

Crer 

DIVIDES PUSH 

H 


28E6 

60 

MOV 

L.,H 


28E7 

■ 2600 

MVI 

H , 0 


28E9 

CD 28F0 

CALL 

D V l 


28EC 

41 

MOV 

B,C 


28ED 

7D 

MOV 

A,L 


28EE 

El 1 

POP 

H 


, ' 28EF 

67 

MOV 

H, A 






TDL Z80 CP/M DISK ASSEMBLER VERSION 
.MAIN. - 


PAGE 34 


28F0 

OEF'F 

DVl s 

MV I 

C, -1 

28 B 2 

oc 

DV2s 

I NR 

c 

28F3 

A 7 


ANA 

A 

28F4 

ED52 


DSBC 

D 

28F6 

SOFA 


JRNC 

DV2 

28 F 8 

19 


DAD 

D 

28F9 

C9 


RET 


28 FA 

7C 

CHKSGM2 

MOV 

ft, H 


B7 


ORA 

A 

28FC 

FO 


RP 


28FD 

7C 

CHGSGNs 

MOV 

A, H 

2:8FE 
•A, •„»' i I 

B5 


UK A 

p 7 

L 

2900 

7C 


MOV 

A, H 

2 VO 1 

F5 


PUSH 

PSW 

2902 

2F 


CM A 


2903 

67 


MOV 

H? A 

2904 

7D 


MOV 

A * L 

2905 

2F 


CMA 


2903 

6F 


MOV 

L, A 

2907 



I NX 

H 

2908 

FI 


POP 

PSW 

2909 

AC 


XRA 

H 

290ft 

F2 2ft4C 


JP 

QHOW 

290D 

78 


MOV 

A 7 B 

290E 

EE: 80 


XRI 

SON 

2910 

47 


MOV 

B» A 

2911 

09 


RET 




5CKHLDE 

ti 

MOV 



t* 

7 

XRA 

D 




JP 

CK 1 



§ 

XCHG 




5 CK13 

CALL. 

COM P 



■ 7 

RET 




? COMP: 

MOV 

A,H 



«; 

7 

CMP 

■ D 



7 

RNZ 




7 

MOV 

A -i L 



7 

CMP 

E 



5 

RET 




5 SETVAI 

Lv FIN ^ 

AND ERROi 

29 i. 2 

CD 21 El 

SETVAL * 

CALL 

TSTVFF 

291 

CF 


TSTC 

i QWHi 

2916 

3D 

4- 

. BYTE 


2917 

2D 

+ 

. BYTE 

QWHAT-. • 



4* j 



2918 

E5 

SETV1': 

PUSH 

H 

2919 

D7 


RST 

RSTEXP 

291A 

44 


MOV 

B, H 

29 IB 

4D 


MOV 

C,L 

291C 

El 


POP 

H 

29 ID 

F5 


PUSH 

PSW 

291E 

79 


MOV 

A,C 

291F 

CD 2FE8 


CALL 

STHL 

2V22 

2 c* 


I NX 

H 
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2923 

78 


MOV 

2924 

CD 2FES 


CALL 

2927 

FI 


POP 

2928 

C9 


RET 

»“> Q •“> Q 

CD 292E 

FINISH* 

CALL 

292C 

1817 


,JMPR 

292E 

CF 

FINS 

TSTCC 

292F 

3B 

4* 

. BYTE 

2930 

04 

+ 

. BYTE 



+ :\ 


2931 

FI 


POP 

2932 

C3 256C 


JMP 

2935 

CF 

FI is 

TSTCC 

2936 

OD 

-b 

„ BYTE 

-’o q •*:> *7 

66 

•■h 

» BYTE 



+ 3 


2938 

FI 


POP 

2939 

C3 2550 


JMP 

293C 

CD 2FD0 

IGNBLKs 

CALL 

293F 

FE20 


CPI 

2941 

CO 


RNZ 

2942 

13 


I NX 

2943 

1SF7 


JMPR 

2945 

D5 

QWHATs 

PUSH 

2946 

11 2035 

AWHATs 

LX I 

2949 

CD 2C7A 

ERRORS 

CALL 

294C 

CD 2AB7 


CALL 

294F 

2A 4EC3 


LHLD 

2952 

E5 


PUSH 

2953 

EB 


XCHG 

2954 

CD 2FD0 


CALL 

2957 

67 


MOV 

2958 

13 


I NX 

2959 

CD 2FD0 


CALL 

295C 

B4 


ORA 

295D 

EB 


XCHG 

295E 

D1 


POP 

295F 

CA 2475 


JZ 

2962 

EB 


XCHG 

2963 

CD 2FD0 


CALL 

2966 

EB 


XCHG 

2967 

B7 


ORA 

2968 

FA 26FB 


JM 

296B 

CD 2B25 


CALL 

296E 

f - -1 


POP 

296F 

41 


MOV 

2970 

CD 2ADE 


CALL 

2973 

3E3F 


MV I 

2975 

DF 


RST 

2976 ' 

CD 2AB7 


CALL 

2979 

C3 2475 


JMP 

297C 

D5 

QSORRYs 

PUSH 

297D 

11 2040 

ASORRYs 

t_X I 

2980 

1SC7 


JMPR 


? FNDLN 


A, B 

STHL 

PSW 

FIN 

QWHAT 

59, Fin: RST 1. 

59 

FI1-.-1 

PSW 

RUNSML 

CR, F12II RST 1 

CR 

FI2-.-1 ( , 

CPT 9 

PSW A 

RUNNXL t5t cM CP** n > 



D,WHAT 

CRLF 

PRTSTG 

CURRNT 

H 

LDE 
H, ft 
D 

LDE 

H 


D 

TELL 

LDE 

A 

INPERR 
PRTLN 
B 
B, 

PRTCHS 

A, •"? " 

RSTOCH 

PRTSTG 

TELL 

D 

D,SORRY 
ERROR 
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2:990 

2995 

y*’ y *«;/ 

299A 
299C 
299D 
299 E 

29 AO 
29m i. 
29A4 
29A& 
29 AS 
29A9 
29 A B 
29AC 
29 AE 
29B0 

29B3 
29B5 
29B6 
29B7 
29B8 
29BB 
29BC 
29 BD 
29C0 

29CA 

29CB 

29CC 

29CD 

2 9 DO 


B7 

HA 2A4U 
11 A 000 
j. •"» 

CD 2FD0 

41- 

1 B 

37 

D8 

CD 2FD0 

95 

47 

13 

79 

9C 

3804 

IB 

BO 

r; Q 

13 

CD 2FD0 
F 1 OD 
20F8 

3.SDF 

E7 

FE25 
281D 
D640 
D 8 

201C 

‘“*Q 

DA 2A4C 

D5 

EB 

CD 2899' 
CD 202F 
38B3 • 

2A 4E52 

2 B 

2B 

D1 

C9 

EF 

AF 

C9 

FE1B 

3F 


FNDLN: 


FNDLF 


F12 5 

FNDNXT 
FL1 s 
FNDSKP 


1ST Vs 


TSTB! 


MOV 

ORA 

JM 

LX I 

I NX 

CALL 

MOV 

DC X 

ADD 

RC 

CALL 

SUB 

MOV 

I MX 

MOV 

SBB 

JRC 

DC X 

ORA 

RET 

I NX 

I MX 

CALL 

CPI 

JRNZ 

I MX 

JMPR 

RST 

CPI 

JR Z 

SUI 

RC 

■JRNZ 


' XCHC 

CALL 
CALL 
JRC 
LHLD 
DCX 
DCX 
DAD 
POP 
RET 

, < ADDR) PEEK 


A, H 
A 

QHOW 
D,TEXT 
D 

LDE 
C, A 
D 
A 

LDE 

L. 

B, A 
D 

A i U 
H 

FL1 
D • 

B 



RSTION 
••• ■/ 


PEEK-POK 



TSTVOs 


TV. is 


I NX 
RST 
XRA 
RET 
CPI 
CMC 


SIZE 
COMP 
ASORRY 
TXTUNF 
H 
H 
D 
D 

-POKE CALL 
D 

RSTPAR S GET ADDR 
A 5 CLEAR CY 

5 AND GO BACK 
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29D4 

D8 


RC 


29D5 

13 


I NX 

D 



5 IS 

SECOND CHARACTER ALSO ALPHA? 

29DS 

6F 


MOV 

LvA i SAVE FIRST ONE 

29D7 

CD 2FD0 


CALL 

LDE ' 

29 DA 

FE41 


CPI 

-A" 

29DC 

3826 


JRC 

DEVV4 5 IF NOT IN RANGE A-Z 

29DE 

FE5B 


CPI 

•"Z-" + l 

29E0 

3022 


.JRNC 

DEVV4 5 THEN SEARCH . 

29E2 

05 . 


. PUSH 

B 

29E3 

D5 


PUSH 

D 

2:9 E 4 

67 


MOV 

Hi A 3 SECOND CHAR TO H 

29E5 

0607 

CTR ' 

MV I 

B 7 PARNUM 5 B - ITERATION 

29E7 

11 20A2 

BLE 

LX I 

D 7 DEVLST 5 DE - SEARCH TA 

29EA 

1ft 

DEWl 

s LDAX 

D 5 GET FIRST ENTRY 

29EB 

13 


I NX 

D 

29EC 

BD 


CMP 

L 

29ED 

1 A 


LDAX 

D 

29EE 

13 


I NX 

D 

29EF 

200B 


JRNZ 

DEVV2 

29F1 

BC 


' CMP 

H 

29F2 

2008 


JRNZ 

DEVV2 



5 MATCH FOUND 

- FIGURE OUT LOOKUP INDEX 

29F4 

78 


MOV 

Ar> B 

29F5 

C61A 


ADI 

26 

29F7 

6 F 


MOV 

Ls A 

29F8 

D 1 


POP 

D 

29F9 

13 


I NX 

D 3 BUMP CHAR PTR 

29FA 

1807 


JMPR 

DEWS 



3 MIS 

MATCH - 

LOOP BACK IF POSS 

29 FC 

1OEC 

DEW2 

s DJNZ 

DEW 1 



5 NOT 

ROSSIBL 

E ~ RETURN NOT A VAR 

29FE 

D1 


POP 

D 

29FF 

Cl 


POP 

B 

2 A 00 

IB 


OCX - 

D 3 BACKUP TO CHAR START 

2 AO 1 

37 


STC 

3 SET CARRY 

2A02 

09 


RET 


2A03 

Cl 

DEVV3 

* POP 

B 

2A04 

7D 

DEVV4 

: MOV 

A ? L. 

2A05 

21 4E6C 


LX I 

H,VARBGN-2 

2 ft 08 

07 


RLC 


2 A 09 

p»i£j 


ADD 

L 

2 AO A 

6 F 


MOV 

Lift 

2A0B 

3E00 


MV I 

A 7 0 

2A0D 

8 C 


ADC 

H 

2A0E 

67 


MOV 

H,A 

2A0F 

C9 


RET 




? TSTCH AMD T 

STNUM 

2 AI 0 

E3 

TSTCH 

s XT Hi . 


2 A 11 

E7 


RSTIGN \ 

2 A 12 

BE 


1 XCMP 


2A13 

23 


I NX 

H 

2A14 

2807 


JR Z 

TCI 
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2 A16 

C5 


PUSH 

B 

2 ft 17 

4E 


MOV 

C, ! v l 

2 A18 

0600 


MV I 

EL 0 

2 A1A 

09 


DAD 

B 

2 A1B 

Cl 


POP 

B 

2 A1C 

IB 


DCX 

D 

2 A1D 

13 

TCI “ 

I MX 

D 

2 A1E 



I MX 

H 

2 A1F 

E3 


XTHL 


2 A20 

C9 


RET 


2 A21 

21 0000 

TSTNUMs 

LX I 

H,0 

2A24 

44 


MOV 

B»H 

2A25 

E7 


RST 

RSTION 

2A26 

FE30 

TNls 

CPI 

*■* o •" 

2A28 

D3 


RC 


2A29 

FES A 


CPI 

3 AH 

2A2B 

DO 


RNC 


2A2C 

3EF0 


MV I 

A>OFOH 

2A2E 

A4 


AM A 

H 

2A2F 

201 B 


JRNZ 

QHOW 

2 A31 

04 


I NR 

B 

2A32 

C5 


PUSH 

B 

2 A 33 

44 


MOV 

B,H 

2A34 

4D 


MOV 

C 7 L 

2A35 

29 


DAD 

H 

2 A 36 

29 


DAD 

H 

2A37 

09 


DAD 

B 

2A3S 

29 


DAD 

H 

2 A 39 

CD 2FD0 


CALL 

LDE 

2ft3L 

13 


I MX 

D 

2 A ■IJ 

E60F 


AN I 

OOFH 

2A3F 

85 


ADD 

L 

2 A 40 

6 F 


MOV 

L i A 

2A41 

3E00 


MVI 

ft i L) 

2A43 

8 C 


ADC 

H 

2A44 

67 


MOV 

Hi A 

2 A 45 

Cl 


POP 

B 

2A46 

CD 2FD0 


CALL 

LDE 

2A49 

F2 2A26 


UP 

TNI 

2A4C 

D5 

QHOW! 

PUSH 

D 

2A4D 

11 203B 

AHOW* 

LX I 

D i HOW 

2A50 

03 2949 


' JMP 

ERROR 



3 MVUPi 

MVDOWN» 

• POP A i f 

2 A 5 3 

CD 202F 

MVUPs 

CALL 

COMP 

2A56 

C 8 


RZ 


2A57 

■ CD 2FD0 


CALL 

LDE 

2A5A 

E5 


PUSH 

H 

2A5B 

60 


MOV 

H, B 

2A5C 

69 


MOV 

L i L 

2A5D 

CD 2FE8 


CALL 

STHL 

2A60 

El 


PUP 

H 

2A61 

13 


I NX 

D 

2A62 

03 


I NX 

B 

2A63 

1 SEE 


JMPR 

MVUP 

2A65 

78 

MVDOWN s 

MOV 

A? B 


ft, 
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2AS6 

92 

2AS7 

C2 2A6D 

2A6A 

79 

2A6B 

93 

2A6C 

CS 

2A6B 

IB 

2A6E 

2B 

2A6F 

CD 2FD0 

2A72 

CD 2FE8 

2 A 75 

18EE 

2A77 

2A78 

Cl 

El 

2A79 

22 4EC9 

2A7C 

7C 

2A7D 

B5 

2A7E 

2 A *o 0 

2810 

El 

2ft 81 

c tz2 

2AS4 

El 

2A35 

22 4ECD 

2ft 88 

El 

2A89 

22 4ECF 

?r i 

.diiOL- 

2ft 8 Ei 

L. .1 

22 4ED1 

2 A 90 

C5 

2A91 

09 

2 A 9.2 

21 B0A4 

2A95 

Cl 

2A9& 

39 

2A97 

D2 297C 

2A9A 

.2A 4EC9 

2A9D 

7C 

2A9E 

B5 

2A9F 

2813 

2AA1 

2A 4ED1 

2AA4 

E5 

2AA5 

2A 4ECF 

2 A AS 

E5 • 

2AA9 

2A 4ECD 

2AAL* 

E5 

2 A AD 

2A 4LC.8 

2 ABO 

t\ o i 

E5 

■"> /\ A CTi“'0 

•iHD J. 

2AB4 

.il. H V 

E5 

2AB6 

C5 

C9 

2AB7 

2AB8 

97 

A "7 

J T j* 

2AB9 

CD 2FD0 

2ABC 

13 

2ABD 

B8 

2 ABE 

if’* o 

2ABF 

DF . . 

2AC0 

FEOD ' 
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2AC2 



JRNZ 

RS2 

2 AC 4 

j“** O 


RET 


2AC5 

CF 

QT 8 TGk 

TSTC 

*** » •" v qt: 

2 AC 6 

2 ",! 

-t- 

. BYTE 

.•* k 

2AC7 

OE 


„ BYTE 

QT3--- 

2 AC 8 

3E22 

„t, “j 

MV.I 

A 7 y n y 

'2ACA 

CD 2AB8 

QT 1 s 

CALL. 

PS1 

2ACD 

FEOD 

QT2« 

CPI 

CR 

2ACF 

El 


POP 

H 

2 ADO 



JZ 

RUNNXL 

2 ADS 

al, Oj 


I NX 

H 

2.AD4 

'Z'd 


I NX 

H 

2AD5 

1::. V 


FCHL 


2AD6 

p 'C‘ 

QT3 s 

TSTCC 

0271-h S' 

D / 

27 


. BYTE 

027H 

2 ADS 


- 1 - 

. BYTE 

QT5- a “““ 

2AD9 

3E27 

*T’ J 

MV I 

A 3 U ud / H 

2 ADB 

1 ©ED 


JMPR 

QT 1 

2ADD 

C9 

QT5S 

RET 


2ADE 

713 

F'RTCHS! 

MOV 

Ai E 

2ADF 

B 8 


CMP 

B 

2AE0 

C 8 


RZ 


2AE1 

CD 2FD0 


CALL 

LDb 

2AE4 

DF 


RST 

RSTOCH 

2AE5 

.1. 3 


I MX 

D 

2AE6 

18F6 


JMPR 

F'RTCHS 

2 AES 


PRTNUM 

SS5S 

„ 

2 AES 

0600 

PM3 s 

MV I 

B i 0 

2AEA 

CD 2SFA 


CALL 

CHKSGN 

2AED 

F2 2AF3 


JP 

PM4 

2AF0 

062D 


MV I 

B, 

2AF2 

OD 


DCR 

C 

2AF3 

D5 

PN4: 

PUSH 

D 

2 AF 4 

11 000 ft 


LX I 

D > 10 

2AF7 

D5 


PUSH 

D 

2AF8 

OD 


DCR 

C 

2AF9 

C5 


PUSH 

B 

2ft FA 

CD 28E5 

PN5 s 

CALL 

DIVIDE 

2AFD 

78 


MOV 

A,B 

2AFE 

Bi 


ORA 

C 

2AFF 

UA 2B0V 


JZ 

PN6 

2B02 

E3 


XTHL 


2B03 

2D 


DCR 

L 

2B04 

E •*j 


PUSH 

H 

2B05 

("t $ j 


MOV 

H » B 

2 BOS 

69 


MOV 

L 7 L 

2B07 

1SF1 


JMPR 

PN5 

2B09 

Cl 

PN6* 

POP 

B 

2B0A 

OD 

PN7 " 

DCR 

c 

2B0B 

79 


MOV 

ft,C 

2B0C 

B7 


ORA 

A 

2B0D 

FA 2B15 


JM 

■PNS 

2B10 

3E20 


MV I 

A 7 
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i >i». .1. 


2 B 12 

DF 


RST 

RSTOCH 



2B13 

18F5 


JMPR 

PN7 



2 Ed 5 

70 

PN 8 s 

MOV 

A»B 



2 B 1 6 

B7 


ORA 

ft 



2B17 

C4 2C7C 


CNZ 

OUTCH 



2 Ed A 

5D 


MOV 

Ei L 



2 BIB 

7B 

PN95 

MOV 

A, E 



2 B 1 C 

FEOA 


CPI 

10 . 



2 B 1 E 

D 1 


POP 

D 



2 B 1 F 

C 8 


RZ 




2B20 

C&30 


ADI 

0 



2 B 22 

DF 


RST 

RSTOCH 



2B23 

18F6 


JMPR 

PN9 



2B25 

CD 2FD0 

PRTL 

.Ns CALL 

LDE 



2 B 2 S 

6 F 


MOV 

L» A 



2B29 

13 


I MX 

D 



2B2A 

CD 2FD0 


CALL 

LDE 



'2B2D 

67 


MOV 

H i A 



2B2E 

13 


I NX 

D 



2B2F 

0E04 


MV I 

CL 4 



2B31 

CD 2AES 


CALL 

PRTNUM 



2B34 

3E20 


MV I 

A, •- •- 



2B36 

DF 


RST 

RSTOCH 



2B37 

C9 


RET 




2B38 

5456 

TAB2 

:s ITEM 

-TV"iPUTCDi: 

.ASCII 

•"TV 

2B3A 

A3 

4* 

DEFF 

PUTCDC „BYTE 

(PUTCD >8 

) ! 8 OH 

2B3B 

FC 

• 1 “ 

„ BYTE 

PUTCD&OFFH 





+ 3 





2B3C 

4D55 


ITEM 

■" MU •" i PUTMU [ 

.ASCII 

•"MU 

2B3E 

A3 

+ 

DEFF 

PUTMUC .BYTE 

(PUTMU78 

) ! 8 OH 

2B3F 

F3 

+ 

..BYTE 

PUTMU&OFFH 










2P40 

26 


ITEM 

PUTIOC 

.ASCII 


2B41 

A3 

4* 

DEFF 

PUTIOE .BYTE 

(PUTI0>8 

) : 8 OH 

2B42 

D9 

“h 

. BYTE 

PUTIO&OFFH 



2B43 

43414C4C 

* J 

ITEM 

•" CALL"' i DOC ALL 

L 

„ ASC11 




CALL-' 




2B47 

A4 

4* 

DEFF : 

DOCALL !I 

» BYTE 

(DO CALI 



> 8 ) ! 

80H 




2B48 

06 

4 

„ BYTE 

DOCALL ?<OFFH 





+ 3 





2B49 

2 E 


ITEM 

•". i remi: 

.ASCII 

*" .. 

2B4A 

A 6 

4 

DEFF 

REM C .BYTE 

(REH> 8 )i 

80 H 

2B4B 

E7 

4 

.. BYTE 

REM&OFFH 



k*B4U 

24 

"r J 

ITEM 

"'$•", BCDMATE 

.ASCII 

■** 4\ y 

2B4D 

A:!. 

4 

DEFF 

BCDMATC .BYTE 

(BCDMATT 

8 )!80H 

2B4E 

7 A 

4 

.. BYTE 

BCDMAT&OFFH 





+ 3 





2B4F 

3 A 


.BYTE 

«} 



2B50 

6£! 


TOKEN 

68 HiTLISTC 

„ BYTE 

68H 

2B51 

A1 

4* 

DEFF 

TLISTE .BYTE 

(TLIST >8 

) j 8OH: 

2B52 

:«*cr 

4 

. BYTE 

TLIST&OFFH 





+ 3 
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3 A 


. BYTE 

/ u y 



2B54 

74 


TOKEN 

74H, TOUTPLir. 

. BYTE 

74H 

2B55 

AI 

4* 

DEFF TOUTPUi: .BYTE 

( TOUTPLD 

8)!BOH 

2B56 

61 

4* 

BYTE 

TQUTPU&OFFH 





+ 1 





2B57 

3 A 


. BYTE 

3 



2B58 

73 


TOKEN 

73H,TINPUTC 

. BYTE 

73H 

2B59 

A1 

4* 

DEFF TINPUTC .BYTE 

(TINPUT3 

8) ! 8OH 

2B5A 

51 

4* 

„ BYTE 

TINPUT&OFFH 





+ 1 





2B5B 

3 A 


. BYTE 

/ n .** 



2B5C 

70 


TOKEN 

70H,TRETURC 

„ BYTE 

70 H 

2B5D 

A4 

4* 

DEFF TRE 

TURi: .BYTE 

« TRETUR3 

8 ) ! 80H 

2 BSE 

DC 

4- 

„ BYTE 

TRETUR&OFFH 





+ 3 





2B5F 

3A 


„ BYTE 

/ « y 

it 



2B60 

6 A 


TOKEN 

6AH,TLOADC 

„ BYTE 

6 AH 

2B61 

A1 

-I- 

DEFF TLOADC .BYTE 

( TLOAD>£ 

) ! 80H 

2B62 

67 

+ 

„ BYTE 

TLOAD&OFFH 





+:i 





2B63 

2 A 


. BYTE 

•*' * *•' 



2B64 

74 


TOKEN 

74H,TPRINTC 

„ BYTE 

74H 

2B65 

A1 

4 

DEFF TPR 

INTC .BYTE 

(TPRINTO 

8 )! 80H 

2.B66 

5 EE 

4 

„ BYTE 

TPRINT&OFFH 



2B67 

53544 

4 J 

F50 

ITEM 

•-STOP", STOP!! 

„ ASCII 

STOP 

2B6B 

A 4 

4 

DEFF STO 

PC .BYTE 

( ST0P>8) 

! 80H 

2B6C 

“7 c;* 

4- 

j* 

. BYTE 

STOP&OFFH 



2B6D 

A 7 


DEFF DEF 

LIT .BYTE 

( DEFLT>8 

) ! 80H 

2B6E 

59 

4 

. BYTE 

DEFLT&OFFH 



2B6F 

76 

5 J 

TAB 

3s TOKEN 

76H 7 RNDC 

. BYTE 

76H 

2B70 

AS 

4 

DEFF RNi: 

C . BYTE 

( RND>8)! 

8 OH 

2B71 

76 


. BYTE 

RND&OFFH 



2B72 

4B4E 

4* J 

ITEM 

•'KN-T GETPOTC 

. ftSCII 

KN X 

2B74 

AS 

4 

DEFF GETPOTC » BYTE 


8 >! 80H 

2B75 

A ? 

H O 

4 

«.3„ 1 

. BYTE 

GETPQT&OFFH 



2B / 6 

5452 


ITEM 

•-TR-TGETTRGC 

.ASCII 

T R •*’ 

2B78 

A8 

4 

DEFF GET 

TRGC .BYTE 

(GETTROO- 

8 )! 8OH 

2B7‘? 

B6 

4* 

„ BYTE 

GETTRG&OFFH 



2B7A 

4A58 

* J 

ITEM 

y JX 7 GETJX C 

.ASCI! 

x *JX 

2B7C 

A 8 

-j- 

DEFF GET 

JXC .BYTE 

( GETJX>8 

) ! 8OH 

2B7D 

BE 

4* 

s 1 

. BYTE 

GETJX S.-OFFH 



2B7E 

4A59 

» J 

ITEM 

•" J Y i GET J Y C 

.ASCI I 

jy 

2B80 

A8 

4* 

DEFF GET 

JYE .BYTE 

C GETJY>3 

) i 8OH 

2B8.1 

CA 

4 

„L» 

. BYTE 

GETJY&GFFH 



2B82 

4B50 


ITEM 

•"KP-TOETKBC 

. ASCII 

KF* 

2B84 

A3 

4* 

DEFF GET 

KBC .BYTE 

( GETKB78 

.) ! 8 OH 
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2BS5 

CE 

+ 

.BYTE GETKB&OFFH 





+ 3 




2BS6 

5058 


ITEM ■•'PX-'.PIXFUN!: 

„ASCI I 

-PX 

2B88 

A1 

"1- 

DEFF FIXFUNC .BYTE 

< PIXFUN> 

8 5 ! 80H 

2B89 

BE 

4* 

* “1 

.BYTE PIXFUN&OFFH 



2B8A 

26 

4* J 

ITEM . I0FUMC 

„ASCII 

& •“* 

2B3B 

A3 

4- 

DEFF IOFUNC .BYTE 

(I0FUN>8 

j | y {'} hi 

2BSC 

E8 

4* 

.BYTE IOFUN&OFFH 



2B8D 

414253 

4* J 

ITEM ABS7 ABSC 

.ASCII 

-'AB 

2B90 

AS 

4* 

DEFF ABSC .BYTE 

(ABS>8)! 

80H 

2B91 

92 

+ 

„BYTE ABS&OFFH 





+ 3 




2B92 

535A 


ITEM "'SZ-LSIZEC 

.ASCII 

8 Z 

2B94 

AS 

4* 

DEFF SIZEC .BYTE 

(SIZ E>8) 

! 8OH 

2B95 

C/C/ 

4* 

.BYTE SIZE&OFFH 



2B96 

A8 

T* 

DEFF MOTF'C .BYTE 

(M0TF>8) 

! 80H 

2B97 

46 

4* 

„BYTE NOTF&OFFH 





+ 3 




2B98 

3E3D 

TAB6S 

ITEM XPR 1C 

.ASCII 


2B9A 

A7 

4* 

DEFF XPR1C .BYTE 

(XPR1>8 ) 

! 8OH 

2B9B 

6B 

4* 

.BYTE XPRl&'OFFH 



2B9C 

23 

^ ..I 

ITEM •"#"•, XPR2C 

„ASCII 


2B9D 

A7 

4* 

DEFF XPR2C .BYTE 

( XPR2>8 ) 

i 80H 

2B9E 

71 

4* 

.BYTE XPR2&0FFH 





+ 3 




2B9F 

3jr 


ITEM » XPR3C 

.ASCII 

X **•.. X 

2BA0 

A7 

+ 

DEFF XPR3C .BYTE 

< XPR3>8) 

! 8OH 

2BA1 

77 

+ 

+ 3 

BYTE XPR3&0FFH 



2BA2 

3D 

ITEM ••• = •-, XPR5C 

.ASCI I 

•** ss *•* 

2BA3 

A 7 

4* 

DEFF XPR5C .BYTE 

( XPR5>85 

! 80H 

2BA4 

86 

4* 

4 * :i 

. BYTE XPR58<OFFH 



2BA5 

3C3D 

ITEM XPR4C 

.ASCII 


2BA7 

A7 

4* 

DEFF XPR4C .BYTE 

( XPR4>8 ) 

! 80H 

2BAS 

71” 

4 

. BYTE XPR4&0FFH 





~K1 




2BA9 

3C 

- 

ITEM XPR6C 

.ASCI I 

X .X* X 

2BAA 

A 7 

4 

DEFF XPR6C .BYTE 

( XPR6>8 ) 

! 80H 

2BAB 

8C 

„,u 

„BYTE XPR6&0FFH 





41 




2BAC 

A 7 


DEFF XPR7C .BYTE 

(XPR7>8) 

! 80 H 

2BAD 

92 

4- 

.BYTE XPR7&0FFH 





+ 3 




2BAE 


RfiNEND 

■=r= 



2BAE 

3A 4E5B 

GLEDs 

LDA EDFLG 



2BB1 

A7 


ANA A . 



.OpDO 

L.J .O 

2814 


■JRZ GLEDA 



2BB4 

11 4ED4 


LX I D» BUFFER- 



2BB7 

CD 2A21 


CALL TSTNUM 
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2BBA 

CD 2982 

CALL 

FNDLN 


2BBD 

3E3F 

MV I 

A, 


2BBF 

CO 

RNZ 



2BC0 

13 

INX 

D 


2BC1 

CD 2BCF 

CALL 

GLEDB 


2BC4 

AF 

XRA 

A 


2BC5 

32 4E5B 

STA 

EDFLG 


2BCS 

ED5B 4E5C 

U L EIJ A« 1... D E. D 

EDPTR 


2BCC 

CD 2FD0 

CALL 

LDE 


2BCF 

I 3 

GLEDB; INX 

D 


2BD0 

ED53 4E5C 

SDED 

EDPTR 


2BD4 

f;9 

RET 



2BD5 

11 4ED4 

GETLNs LX I 

D,BUFFER 


2BD8 

32 4E5B 

STA 

EDFLG 


2BDB 

DF 

GL1s RST 

R8T0CH ? PROMPT OR ECHO 


2BDC 

C5 

GL2s PUSH 

B 


2BDD 

IE 5 

PUSH 

H 


2BDE 

D5 

PUSH 

D 




5 PLACE UP CUR 

SOR BLOCK 


2BDF 

OEAA 

MV I 

C,OAAH 


2BE1 

CD 2D33 

CALL 

CURSE 




5 RETURN CHAR 

FROM NEXT LINE.# 


2BE4 

21 4E62 

ULZAs LX 1 

HtNLLNCT 


2BE7 

7 E 

MOV 

A ■< M ? SENSE FLAG 


2BES 

A 7 

AM A 

A 


2 BE: 9 

2838 

JRZ 

Li 1... L- 


2BEB 

35 

DOR 

M 


'"t p p* r* 

CCftB 

5 FIRST TIME T 

HRU? 



1 

20 OC 

L- r J. 

JRNZ 

GL2B ? JUMP IF NOT 




? GET PREVIOUS 

LINE # AND BUMP IT 


2BF0 

2A 4E84 

LHLD 

OL.DLN 


2BF3 

11 000A 

LX I 

D, 10 


2BF6 

19 

DAD 

D 


2BF7 

CBBC 

RES 

7 ■> H ? ALLOW MEG 


2BF9 

22 4E60 

GL2JS SHLD 

t 1 

nllnLn S MOVE TO WORKING RAM 

CE 



LL 

j COMPUTE DIVI: 

SION SUBTRACTOR 


2BFC 

pp 

GL.2B5 INDEX W 

1 Z I NTP% c:. IFE .. I NIP. , Z RST 7111 


2BFD 

5B 

+.BYTE 90+13 



2BFE 

2F10 

. WORD 

TBLDIV-2 


2C00 

2A 4E60 

LHLD 

NLLNLN 


2 COS 

0600 

MVI 

Eh o 


2C05 

A 7 

GL2ES ANA 

A 


2 COS 

ED52 

DSBC 

D 


2C08 

FA 2C0E 

JM 

GL2F 


2C0B 

04 

INR 

B 


2C0C 

■j ppy 

■JMF'R 

GL2E 


2C0E 

19 

GL.2F5 DAD 

D 


2C0F 

22 4E60 

SHLD 

NLLNLN 


2C12 

21 4E63 

LX I 

Hv NL..LNZS 


2C15 

78 

MOV 

A 3 B 


2C16 

A 7 

ANA 

A 


2C i 7 

2:005 

•JRNZ 

GL2G 


2C19 

7E 

MOV 

At M 
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2 C 1 A 

A7 

ANA 

A 

2 C 1 B 

2807 

■JRZ 

GL2A ! YES - JUMP BACK 

2 C 1 D 

AF 

XRA 

A 

2C1E 

0630 

GL2GS ADI 

'0' 5 MAKE ASCII 

2 C 20 

77 

MOV 

Hi A ? SET NONZERO FLAG 

2 C 21 

ieoB 

JMPR 

GL.2D 



; NOTHIN FANCY 


2 U 2 3 

CD 2D9C 

GL2C» CALL 

CHKIO 5 GET NORMAL CHARACTER 

2C26 

D 1 

POP 

D 

2C27 

12 

STAX 

D ? STUFF CHAR AS DELIMIT! 

2028 

D5 

K 

PUSH 

D 

2029 

FE 66 

CPI 

EDKEY 

2C2B 

00 2BAE 

cz 

GLED 

202 E 

D 1 

GL2DS POP 

D 

2C2F 

El 

POP 

H 

2080 

01 

POP 

B 

2031 

12 

GL3s STAX 

D 

2032 

FE1F 

CPI 

RUBOUT 

2034 

202F 

JRNZ 

GL4 

2036 

7B 

MOV 

A, E 

2037 

FED 4 

CPI 

BUFFER&OFFH 

2039 

28 A 1 

JRZ 

GL2 

2C3B 

IB 

OCX 

0 

2030 

1 A 

LDAX 

D 

203Ei 

FE 68 

CPI 

68 H 3 TOKEN TO RUB OUT? 

2C3F 

3007 

JRNC 

TOKIN 

2041 

CD 2E86 

CALL 

F'NOTE 

2044 

3E1F 

MV I 

A, RUBOUT 

2046 

1893 

JMPR 

GL1 

2048 

D5 

TOKINs PUSH 

D 

2049 

CD 2EEF 

CALL 

TOKEPT 

2040 

7E 

TOKER: MOV 

A 7 M 

2C4D 

E5 

PUSH 

H 

2C4E 

E67F 

AN I 

7FH 

2050 

CD 2E86 

CALL 

PMOTE 

2053 

3E1F 

MV I 

A,RUBOUT 

2055 

CD 20CE 

CALL 

VDM 

2058 

El 

POP 

H 

.id ubv 

7E 

MOV 

A»M 

2C5A 

2 3 

I NX 

H 

2C5B 

07 

RLC 


2050 

30EE 

JRNC 

TOKER 

2C5E 

3E1F 

TOKEQ5 MVI 

A, RUBOUT 

2060 

OF 

RST 

RSTOCH 3 ECHO ONE RUBOUT CHAR 

206 :t 

01 

POP 

0 

2062 

03 2BDC 

GL9s JMP 

GL2 

2065 

FEOD 

GL4s CPI 

CR 

2067 

Oft 2074 

JZ 

GL5 

20 & A 

7B 

MOV 

ft,E 

2C6B 

FE3C 

CPI 

BUFEND&QFF.H 

2060 

28F3 

JRZ 

GL9 

208F 

1 A 

LDAX 

D 

2070 

13 

I NX 

D 

2071 

03 2BDB 

' JMP • 

GL 1 
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2C74 

13 

GL5 s 

I NX 

D 

2C75 

13 


I NX 

D 

2076 

3EFF 


MV I 

A,OFFH 

2C78 

12 


STAX 

D 


IB 


DCX 

D 

2C7A 

3E0B 

CRLF s 

MV I 

A t L*R 


5 SUBROUTINE TO SIMULATE A CHARACTER DISPLAY IN 
", THE ARCADE FRAME BUFFER. THE SIMULATED VDM HA 


5 DIMENSIONS 26 CHARS BY 11 LINES., THE CHARACTE 
R GRAPHICS ARE 5 X 7 

5 IN A 6 X 8 FRAME,, ALTERNATE FONT IS USED TO G 
ET THIS. 

5 THE 64 UPPER CASE ASCII CHARACTERS ARE DISPLAY 
ED BY THIS 

5 HANDLER. THE ASCII CONTROL CHARACTERS CARRIAG 
E RETURN AND 

5 RUBOUT ARE ALSO PROCESSED BY THIS HANDLER,, OR 
CAUSES 

5 THE DISPLAY TO GO TO THE NEXT LINE OF THE DISP 
LAY, WITH 

? SCROLL UP IF NECESSARY. RUBOUT CAUSES THE CUR 
SOR TO MOVE 


2070 

2C7D 

2C7E 

2C7F 


E5 

D5 

C5 


5 BACKWARDS ONE CHARACTER POSITION. 

? CHARACTER TO DISPLAY IS IN A. THE ALTERNATE R 
EGISTER SET 
5 IS USED. 

DUTCHs PUSH H 


PUSH 

PUSH 

PUSH 


D 

Pj 

PSW 
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j 1 

r 


..;, r .c;, r | 


JRZ 

* 

VDMCAL ? JUMP IF SO 



S (POSITION 

IS BIT 1 ) 

2C9F 

DB12 

IN - 

TAPE10 5 KEEP READING INPUT 

2 L*A 1 

5F 

MOV 

Ei A 

2CA2 

DB12 

TAPCH3S IN 

TAPE10 s UNTIL IT TOGGLES 

2CA4 

AB 

XRA 

E 

2CA5 

E602 

AN I 

2 

2CA7 

2:3F9 

1 JRZ 

TSPCH3 

2CA9 

78 

\ MOV 

AJE 5 E = WHAT WE GOT NOW 

2CAA 

A9 

XRA 

C - 5 C = WHAT WE WANT 

2CAB 

E602 

AN I 

2 5 DID WE -'GET IT?-' 

2CAD 

2802 

JRZ 

TAPCH4 ? JUMP IF SO 

2CAF 

DB 12 

IN 

j «r 

TAPE10 ? NO - READ AGAIN TO TOG 

2CB1 

CpC9 

\ TAPCH4! SET 

0 1 

1,C 5 SET EACH BIT WRITTEN T 

2CB3 

CB05A 

RRCR 

ON 

C ? SHIFT INTO NEXT POSIT! 

2CB5 

1SEO 

.JMPR 

T 

TARCH 1 5 so STOP BIT WILL GO OU 



A ; MODE 6 -- Ti 

JKEN coming thru? 

2CB7 

7 A ! 

IWBflFRGs MOV 

A,D 

2CB8 

FE68 t 

\ ( CPI 

68H 

2CBA 

33 DO 

\ 

\ p t JRC 

TURDC2 ? NO - TWEEDLE IT TO TAP 



", YK -- FALL 

INTO , . 

2CBC 

7 A 

VDMCAL.S MOV 

A i D 

2CBD 

CD 2CCE 

CALL 

VDM 

2CC0 

FI 

POP 

P.SW 

2CC1 

Cl 

POP 

B 

•7rr-:> 

UiM \rr* W 

D1 

POP 

D 

2CC3 

El 

POP 

H 

2CC4 

C9 

RET 




? EVEN STRANC 

3ER GUYS ENTER HERE . .. 

2CC5 

6F 

VDMTQKs MOV 

1.7 A 

2CC6 

3A 4EC2 

LDA 

TAPES! 

2CC9 

FE06 

CPI 

6 

2CCB 

7D 

MOV 

A ? L 

2CCC 

28AE 

JRZ 

DUTCH 



? SOME FUNNY 

GUYS ENTER HERE 

2ccf: 

F'EOD 

VDM: CPI 

CR 

2CD0 

2S2E 

JRZ 

VDMOCR 

2 CD 2 

FE1F 

CPI 

RUBOUT ? TRANSLATE TRASH TO ? 

2CD4 

230F 

JRZ 

VDM 1 

2CD& 

3304 

JRC 

FILTi 

2CD8 

FE73 

CPI 

7SH 

2CBA 

3802 

JRC 

FILT2 

2CDC 

3E3F 

FILTH MV I 

A, •"?■" 

2 ODE 

FE6S 

FILT25 CPI 

68H ? TOKEN TO PRINT? 

2CE0 

304F 

JRNC 

TOKEP ? JUMP IF SO 



5 PLAY NOTE F 

-OR THIS CHAR 

2CE2 

CD 2E86 

LALL 

PNOTE 



? NON NEW LINE CHAR -■ UNWRITE OLD CURSOR 

2CE5 

CD 2D46 

VDM is CALL 

UCURSE 

2CE£i 

CD 235A 

CALL 

LDVDMC 
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r 

2CEB 

FE1F 


CPI 

RUBOUT 

5 WAS THAT RUBOUT? 

2CED 

20 IF 


JRNZ 

VDM3 

! JUMP IF NOT 



? RUB0U1 

ENTERED - SO 

=iUB OUT 

2CEF 

7D 


MOV 

Ai L 

3 GET X 

2CF0 

A 7 


ANA 

A 

5 IS X = 0? 

2CF:!. 

2805 


JR Z 

VDM2 

; YES - JUMP 

.tL. L..* 1 

D606 


SUI 

6 

3 NO - BACKUP X 

2CF5 

6F 


MOV 

L»A 


2CF6 

1831 


JMF'R 

VDMDN1 

3 AMD JOIN STORE BACK 

2CFS 

2E96 

< VDM2s 

MV I 

Li ISO 


2CFA 

7C 


MOV 

A, H 


2CFB 

DA 08 


SUI 

o 


2CFD 

67 


MOV 

H, A 


2CFE 

1829 


JMPR 

VDMDN1 




? NEW LINE CHAR 

- DID 

WE JUST WRAP AROUND 

2D 00 

3A 4E54 

VDMOCRs 

L..DA 

VDMNLF 

3 CHECK OLD GLORY 

2D03 

A7 


ANA 

A 


2D 04 

2026 


JRNZ 

VDMDON 

3 YES - SKIP DIDDLING 

2D06 

CD 2D46 


CALL 

UCURSE 

! NO - UNWRITE CURSOR 

2D 09 

CD 2D 4 A 


CALL 

NEWLIN 

3 GO TO NEXT LINE 

2D0C 

18 IE 


JMPR 

VDMDON 

3 AND QUIT 



3 NORMAL 

CHARAC 

TER ENTERED - DISPLAY IT 

2D0E 

54 

VDM3: 

MOV 

Df H 

3 COORDINATES TO DE 


5D 


MOV 

E 7 L 

* 

2D 10 

F680 


OR I 

80 H 

5 ALT FONT THE CHAR 

2D 12 

0E18 


MV I 

C«0110006 5 OR WRITE THE C 



HAR 




2D 14 

DD21 4E66 


LX I 

X, ALTF 

DN 3 USING ALTERNAT 



E CHAR F 

: QNT 



2D 18 

FF 

"I "I 

CHRDIS 

3 IT 

11! INTP7.1".. IFE .. I MTP. , IIRST 

2D 19 

8? 

/ ..1 J 

+ .BYTE 

50+011 



2D 1A 

7D 


MOV 

A,L 

5 ADVANCE X. POINTER 

2D IB 

I.; 6 u 8 


ADI 

6 


2D ID 

6F 


MOV 

L, A 


2D IE 

FE9C 


CPI 

156 

? END OF LINE? 

2D20 

2007 


JRNZ 

VDMDNi 

3 NO - JUMP 

2D22 

CD 2D4A 


CALL 

NEWLIN 

3 YES - MEW 1 LINE 

2D25 

3E01 


MV I 

A, 1 

5 AND SET NEW LINE FORCE 



D FLAG 




2D 27 

1804 


JMPR 

VDMDN2 


2D29 

CD 2374 

VDMDN1s 

CALL 

STVDMC 


2D2C 

AF 

VDMDON: 

XRA 

A 

3 .CLEAR NEW LINE FORCED 



FLAG 




2D2D 

32 4E54 

r-c> 

VDMDN2: 

STA 

D3TT 

VDMNLF 


.it:.., U 

.... .■ 

* VL„ I 

3 ROUTINE TO Dl: 

SPLAY A 

TOKEN IN FULL FORM 

2D31 

CD 2EEF 

TOKEPs 

CALL 

TOKEPT 


2D34 

7E, 

TO KEF' 1 s 

MOV 

A,M 

■ v . - * 

2D35 

E67F 


ANT 

7FH 


2D37 

E5 


PUSH 

H 


2D3S 

CD 2CC5 


CALL 

VDMTOK 


2D3B 

El 


POP 

H 


2D3C 

7F 


MOV 

A,M 


2D3D 

2 3 

> 

I NX 

H 
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2D3E 

07 


RLC 


2D3F 

30 F 3 


JRNC 

T0KEP1 

2D41 

3E20 

T0KEP2 

55 MV I • 

A» -■ ; PUT 

2D 4 3 

03 2005 


JMP 

VDMTOK 5 AND 



? SUBROUTINE TO 

«! UN WRITE THE CU 

2D 4 6 

DECK) 

UCURSE 

:: MVI 

LU 0 

2D4S 

i 83E 


.JliPR 

CURSE 



5 SUBROUTINE TO 

DISPLAY NEW LI 

2D 4 A 

CD 235A 

NEWLIN 

s CALL 

LDVDMC 



? 18 S 

iCROLL UP 

NEEDED? 

2D4D 

2E00 


MVI 

Lv 0 

2D4F 

7C 


MOV 

JL 

<L 

2D50 

FE50 


CPI 

so 

2D52 

202D 


JRMZ 

NEWLl 5 JUMP 



? SCROLL UP IS 

NEEDED 

2D54 

CD 2374 


CALL 

STVDMC 

2D57 

21 4DC0 


LX I 

H,4DC0H 

2D5A 

7E 

SCRL9s 

MOV 

A, M 

2D5B 

E655 


ANI 

0101010IB 

2D5D 

77 


MOV 

M, A 

2D5E 

***> 

.1*** u .«. 1 


IN X 

H 

2D5F 

7D 


MOV 

AiL 

2D60 

FE20 


CPI 

20H 

2D 62 

20F6 


JRNZ 

SCRL9 

2D 64 

0304 


MVI 

B, 4 

2D 6 6 

C5 

SCRLPs 

PUSH 

B 

2D67 

21 4000 


LX I 

H,NORMEM 

2D6A 

11 4050 


LX I 

D,N0RMEM+80 

2D6D 

01 980E 


LX I 

B»0980EH 

2D70 

1A 

SCRUPs 

LB AX 

D 7 

2D 71 

' AE 


XRA 

M 7 

2D72 

E6AA 


AMI 

1010101 OB 7 ^ 

2D 74 

A E 


XRA 

M 7 57 

2075 

77 


MOV 

M, A 7 

2D76 

*“*i 


INX 

H 

2D77 

13 


INX 

D 

2 D / S 

10F6 


DJNZ 

SUNUP 

2D7A 

OD 


DOR 

p 

2D7B 

20F3 


■JRNZ 

SCRUP 

2D7D 

Cl 


POP 

B 

2D7E 

10E6 


DJNZ 

SCRLP 

2D80 

C9 


RET 


2D81 

C608 

NEWLl: 

ADI 

R 

2D83 

67 


MOV' 

H 5 A 

2D84 

CD 2374 


CALL - 

STVDMC 

2DS7 

C9 


RET 




5 SUBROUTINE TO 

PAINT CURSOR 



51 }***• «... 

•? L* 

DATA TO PAINT 00 OR AA 


F5 

CURSES 

PUSH 

PSW 

2D 89 

CD 235A 


CALL 

LDVDMC 

2D8C 

EB 

PCURS1 

s XCHG 


2D8D 

AF 


XRA 

A 

2D8E 

FI¬ 


RELAB 1 C INTP/iC. IFE . INTI 

2D8F 

SA 

4*, BYTE 




SPACE AFTE 
RETURN 


R TOKEN 


IF NOT NEEDED 


c 


p. 


ST 73 3 
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2D90 

D30C 

2D92 

EB 

2D93 

79 

2D94 

01 0806 

2D97 

CD 226F 

2D9A 

FI 

2D9B 

C9 

2D9C 

3A 4EC2 

2D9F 

3D 

2D AO 

2019 

2 DA 2 

CD 2ESC 

2D A 5 

C2 246F 

2 D Ay 

2A 4E20 

2 DAB 

7C 

2DAC 

BD 

2 DAD 

2 SEED 

2DAF 

6 F 

2DB0 

264E 

2DB2 

4E 

2 DBS 

CD 212C 

2DB6 

32 4E21 

2DB9 

79 

2DBA 

C9 

2DBB 

CD 2E5C 

2DBE 

20FB 

2DC0 

21 4E55 

2DC3 

3606 

2DC5 

7E 

2DC6 

A7 

2 DC 7 

20FC 

2 DC 9 

3A 4EA2 

2DCC 

F5 

2D CD 

21 2F68 

2DD0 

E5 

2DD1 

21 2FBB 

2DD4 

11 FFEB 

2DD7 

01 0414 

2DDA 

ED78 

2 DDC 

E620 

2DDE 

2007 

2DE0 

19 

2DE1 

OC 

2DE2 

10F6 


OUT MAGIC 

XCHG 

MOV A,C 

LX I B i 0806H 

CALL BOXPUT 

POP PSW 

RET 

NEW KEYBOARD HANDLER 
WITH SHIFT KEY ROLLOVER 
L.DA TAPEST 

DCR A 

JRNZ CHKIOQ 

CHECK FOR ABORT 
CALL KEYSCM 

JNZ INITO 

GET CHARACTER FROM THE BUFFER 



5 NO -• SKIP IT THEM 
KEYSTROKE 



LHLD 

MOV 

CMP 

JRZ 

MOV 

MV I 

MOV 

CALL 

STA 

MOV 

RET 


CHKIOQ5 CALL "—- KSVCeW 
RELEASED 

JRNZ CHKIOQ 

? AWAIT DEBOUNCE TIMER COUNTDOWN 
CHKIOOs LX I H-. KEYTMR 

MVI M» 6 ? SET IT 

L00PER5 MOV A,M 

ANA A 

JRNZ• LOOPER 

? SAVE BACKGROUND COLOR 



CONF'RO 
A, H 

L ? 

CHKIO 5 

Li A ? 

H,TAPBUF >8 
CUM 

BUMPTR 

CONPTR 3 UPDATE MY POINTER 

AiC ? PASS BACK THE CI-fARACTE 


LDA 
. PUSH 

! ASSUME FIRST 
LX I 

GETKls PUSH 


DEVCLO 

PSW 

LEVEL KEYCODE 
HiFIRSTL 
H 3 SAVE 


TABLE PTR 


SCAN ONLY FOR SHIFT KEYS 


LX I 
LX I 


E 

GETK2! 


LX I 
IMP 
AN I 
JRNZ 
DAD 
I NR 
DJNZ 

NO SHIFT KEY 


HiKTBL4 
D i — 2 1 

Bi0414H 
A 

20H 

GETK3 

D 

C 

GETK2 
:s DOWN - 


** SIZE OF LOOKUP TABL 


! INPUT FROM PORT 
; SHIFT KEY DOWN? 
i JUMP IF YEP 
! ELSE TO NEXT TABLE 
! AND PORT 

USE WHATEVER WE HAD BEF 
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ORE 



2 D EE 4 

El 

POP 

H 


2DE5 

1S0F 

.JMF'R 

GETK5 




; A SHIFT KEY 

IS DOWN - 

■ SAME OLD STORY? 

2DE7 

Di 

GETK3» POP 

D 

5 DISCARD OLD BELIEFS 

2DE8 

3A 4EA2 

LDA 

R 

CMP 

DEVCLO 

5 IS CURRENT SCREEN COLO 

2 DEB 

BE 

M 

5 THE SAME AS WHAT WE WO 

OLD SET? 

2DEC 

2807 

•JRZ 

GETK4 

5 YEP - DON'T BOTHER WIT 



H FEEDBACK 



2D EE 

7E 

MOV 

A HI 

5 ELSE SET MEW COLOR 

2DEF 

32 4EA2 

STA 

DEVCLO 


2DF2 

CD 2E29 

CALL 

WCLICK 

j AND GO CLICK : , 

2DF5 

lb 3 

GETK4S INX 

H 

? SKIP COLOR BYTE 



* NOW SCAN FOR 

ANY -NORMAL-' KEY DEPRESSION 

2DF6 

CD 2E5C 

GETKSs CALL 

KEYSCN 


2DF9 

28D5 

JRZ 

GETK1 

? JUMP IF NO KEY DOWN 



S WE GOT ONE - 

CONVERT 

TO ASCII 

2DFB 

3D 

DCR 

A 

? BY TABLE LOOKUP 

2DF C 

4F 

MOV 

L i A 


2DFD 

0600 

MV I 

B, 0 


2DFF 

09 

DAD 

B 


2E00 

F.t 

POP 

PSW 

; RESTORE COLOR 

2E01 

32 4EA2 

STA 

DEVCLO 


2E04 

"•>* |— 

/ L*. 

MOV 

A,M 

5 GET CODE 

2E05 

A7 

ANA 

A 

? A HLT PERCHANCE? 

2E06 

284E 

JRZ 

INIJMP 

5 YEP - RESET 

2E08 

FE01 

CPI 

1 

§ AN ERROR? 

2E(^A^ 

j CA 2D9C 

JZ 

CHKIO 

5 YEP - GO DOIT AGAIN 



■ GOOD KEY... 



_ 2E0D 

F5 

CHKX02S PUSH 

PSW 

5 NEED WE GO •'CLICK/'? 

2E.0t 

FE67 

CPI 

NLLN 

5 REJECT TOKENS 

2E10 

300A 

JRNC 

NQCLK 


2E12 

pp 

INDEXB 

i r: INTF7, 

CIFE . INTP. i ERST 733 

2E13 

5D 

4-,, BYTE 92+11 



2E14 

2F04 

. WORD 

NOTES-C 

R 

2E:!. 6 
2E17 

3C 

2003 

I NR 
JRNZ 

A 

NQCLK 

i(0 l 5 

2E19 

CD. 2E29 

CALL 

WCLICK 


2E1C 

FI 

NQCLK s POP 

■ PSW 

tc. 

2E1D 

h bo? 

CPI 

> NLLN 

2E1F 

CO 

RNZ 



2E20 

21 0005 

LX I 

Hi 5 


2E23 

22 4E62 

SHLD 

rcc 

NLLNCT 

? SET FLAG AND ZERO SUPR 


3E0D 

too 

MV I 

CHAR 

A i CR 

? PASS BACK CR AS FIRST 

2E28 

C9 

RET 



2E29 

3A 4E57 

WCLICK* LDA 

NEWTMR 


2E2C 

A 7 

ANA 

A 


2E2D 

20FA 

JRNZ 

WCLICK 


2E2F 

3EFD 

MV I 

A, GO 


- 2E31 

32 4E59 

STA 

MUZTON 


2E34 

3A 4EA6 

LDA 

DEVTEM 

S DON-'T CLICK IF NT=0 
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1 . 


2E37 

A 7 

ANA 

A 



2E38 

C8 

RZ 




2E39 

3E0;!. 

MVI 

A, 1 



2E3B 

32 4E57 

STA 

NEWTMR 



2E3E 


RET 






-f 

? SUBROUTINE "1 
IMG 

U CHECK 

"OR 

HLT KEY WHILE PGM RUNN 

2E3F 

C5 

WHATSU« PUSH 

B 



2E40 

D5 

PUSH 

D 



2E41 

CD 2E5C 

CALL 

KEYSCN 

7 

GET KEY CODE 

2E44 

D602 

SU.I 

2 

7 

FREEZE? 

2E46 

2807 

■JRZ 

FRZKEY 



2 IE 4 8 

3D 

DCR 

A 



2E49 

280B 

JRZ 

I MUMP 



2E4B 

FE01 

• CPI 

1 

■ 

RETURN Z STATUS FOR LI 



ST KEY 




2E4D 

ISO A 

JMPR 

FRZGBK 

H 

ELSE GO BACK TO CALLER 

2E4F 

r*n 

JL* X.. U.„ :J 

FRZKEY* CALL. 

0 REL 

KEYSCN 

7 

SCAN FOR NONZERO KEY T 

2E52 

28FB 

JRZ 

FRZKEY 



2E54 

FE03 

CPI 

O 

X 

HLT MAILED? 

2E56 

CA 2472 

INIJMP* ,J2 

IN IT 



?F59 

D1 ' 

FRZOBKs POP 

D 



2E5A 

L* i 

POP 

B 



2E5B 

C9 

RET 






5 SUBROUTINE 1 

‘0 SCAN T 

I NY 

BASIC KEYBOARD 

2 ESC 

01 0414 

KEYSCN5 LX I 

Bi0414H ? 

B = CNT ■> C = PORT # 

2E5F 

11 4E6D 

LX I 

D 7 KEYT 

Rl< 

? DE = KEYBOARD 



MEMORY 




2E62 

AF 

XRA 

A 



2 IE 6 3 

FF 

RANGED 

ICINTP7.C. 

1 r E 

„INTP. i LRST 711 

2E6.4 

76 

■ + » BYTE 118+011 




2E65 

ED73 

KYSCNlf IMP 

A 

* 

LOOK AT COLUMN 

2E67 

E61F 

•AN I 

1FH 


ISOLATE THE RELEVANT 

2E69 

2006 

JRNZ 

KYSCN2 

? 

JUMP IF BITS HIGH 

2E&B 

oc 

I NR 

c 

7 

BUMP PORT # 

k!fc. 6 C 

1 OF 7 

DJNZ 

KYSCN1 



2E6E 

AF 

XRA 

A 

u 

7 

SET ZERO STATUS 

2E6F 

12 

STAX 

D 

n 

7 

NOTHIN - SAY ZIP 

2E70 

C9 

RET 






? DEPRESSION F 

OUND - JUMP 

UP AND DOWN 

2E71 

05 

KYSCN2S DCR 

B 



2 k. / 2 

OEOO 

MVI 

C 3 0 

7 

COME UP WITH BIT # 

2E74 

OF 

KYSCN4* RRC 

5 SHIP' 

r BIT OVER 

2 in: / S 

3803 

JRC 

KYSCN3 

? 

JUMP IF THE ONE 

2E77 

OC 

I NR 

c 

7 

else count up 

2E78 

18F A 

JMPR 

KYSCN4 

n 

»i 

AND TRY AGAIN 



5 FOUND BIT - 

ASSEMBLE 

KEYCODE 

2 b. / A 

T 

KY8CN3 s MOV 

A ? C 

7 

BIT # TO ft 

2E7B 

07 

RLC 


7 

*&• 4 

2E7C 

07 

RLC 




2E7D 

B 0 

URA 

B 

& 

7 

COMBINE WITH COL * 

2E7E 

3C 

I NR 

A 
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2E7F 

47 

MOV 

B, ft 


2ES0 

1A 

LDAX 

D 


2E81 

AS 

XKA 

B 


2E82 

78 

MOV 

A, B 


2E83 

C8 

RZ 


? QUIT IF THE SAME 

2ES4 

12 

STAX 

D 

5 ELSE UPDATE TRACKER 

2 £85 

C9 

RET 





5 SUBROUTINE TO PLAY A 

NOTE 

2E86 

E5 

PNOTE* PUSH 

H 


2E37 

D5 

PUSH 

D 


2E88 

F5 

PUSH 

PSW 


2E89 

67 

MOV 

H, A 




5 WAIT FOR PRE 

IVIOUS PARAMETERS TO BE EATEN 

2ESA 

3A 4E57 

PRWAITs LDA 

NEWTMR 


2E8D 

A 7 

ANA 

A 


2ESE 

20F A 

JRNZ 

PR WAXr 

? LOOP 

2E90 

7C 

MOV 

A,H 


2E91 

FE63 

CPI . 

63 H 

5 DIVIDE? 

2E93 

o -*“# |~ 

JRZ 

PNOTDV 


2E95 

FE62 

CPI 

62H 

? MULTIPLY? 

2E97 

2831 

JRZ 

PNOTML 


2E99 

FE2B 

CPI 

** Hb 


2E9B 

283 1 

JRZ 

PNOTPL 


2E9D 

FE2D 

CPI 



2E9F 

2830 

JRZ 

PNOTMN 


2EA1 

FE30 

CPI 

q y 


2EA3 

2830 

JRZ 

PNOTZ 


2EA5 

21 2F04 

LX I 

H,NOTES 

-CR 

2EAS 

FF 

HOOKIN'* INDEXBII INTP'/.C. I 

FE .INTP .7 ERST 73 3 

2EA9 

5C 

+ .BYTE 92+011 



2EAA 

3C 

I NR 

A 

? CLICK? 

2EAB 

28 OE 

JRZ 

PNOTCL 


2EAD 

3C 

I NR 

A 

; AINSWORTH NUMBA? 

2EAE 

2831 

JRZ 

PNOTNO 


2EB0 

3D 

DOR 

H 


2EB1 

3D 

DOR 

A 


2EB2 

32 4E59 

ST A 

MUZTOM 


2EB5 

3A 4EA6 

LDA 

DEVTEM 

- 

2EB8 

32 4E57 

ST A 

MEWTMR 


2EBB 

AF 

PNOTCL* XRA 

A 


2EBC 

32 4E5A 

PSHARP* STA 

SHARPF 


2EBF 

FI 

PN0TC1« POP 

PSW 


2EC0 

Di 

POP 

D 


2EC1 

El 

POP 

H 


2EC2 

C9 

RET 



2EC3 

3ESF 

PMOTDVs MVI 

A 7 0 A1 


2EC5 

32 4E58 

PN0TD1* STA 

MUZ MO 


2EC8 

18F5 

JMPR 

PNOTCi 


2 EC A 

3E23 

PNOTML5 MVI 

A 7 0A3 


2ECC 

18F7 

JMPR 

PN0TB1 


2ECE 

3E01 

PNOTPL* MVI 

A, 1 


2ED0 

11 

. BYTE 

11 H 

; OPCODE TO MUNCH NEXT 



WO BYTES INTO 

DE 


2ED1 

3E02 

PNOTMN* MVI 

A 7 2 


2ED3 

18E7 

JMPR 

PSHARP 
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2ED5 

21 4E56 

F’NOTZ s 

LX I 

H, MUZTMR 

2ED8 

3A 4EA6 


LDA 

DEVTEM 

2EDB 

F3 


DI 


2EDC 

86 


ADD 

M 

2EDD 

77 


MOV 

M, A 

2EDE 

FB 


El 


2EDF 

18DE 


JMPR 

PNOTCl 



5 PLAY 

AINSWORTH NOTE 

2EE1 

3A 4E5A 

PNOTNOs 

LDA 

SHARPF 5 RESTORE CHARACTER 

2EE4 

FF 


INDEXW 

1 C INTP7. L . IFE .1NTP, l RST 7 3 3 

2EE5 

5B 

+.BYTE 

90+1 3 


2 EE 6 

2EFD 


. WORD 

DICKY 

2EE8 

EB 


XCHG 


2EE9 

FI 


POP 

PSW 

2EEA 

F5 


PUSH 

Pb'W 

2EEB 

D631 


SUI 

i 

2EED 

18B9 


JMPR 

HOOKIN 



? SUBROUTINE TO 

POINT AT A TOKEN 

2EEF 

21 2064 

TOKEPTs 

LX I 

H.TOKTXT ? POINT AT TEXT 



LIST 



2EF2 

D 668 


SUI 

68 H 

2EF4 

C 8 

■JOKER 15 

RZ 

5 QUIT IF POINTING AT EM 

2EF5 

CB7E 

J0KEP2S 

BIT 

7 7 M S MOVE PAST NEXT WORD 

2EF7 

•pc* 


I NX 

H 

2EF8 

28FB 


JRZ 

J0KEP2 

2EFA 

3D 


DOR 

A 

2EFB 

18F7 


JMPR 

JOKER 1 5 LOOP BACK AND CHECK 



5 MUSIC 

TABLES 


2EFD 

2.F0A 

DICKY* 

« WORD 

MUZNOR 

2EFF 

2 F 1 C 


. WORD 

MUZMAX 

2F0 1 

2F03 


. WORD 

MUZMIN 

2F03 


MUZMIMs 



2F03 

64 


BYTE 

B 1 

2F04 

59 


. BYTE 

082 

2F05 

4F 


„ BYTE 

D82 

2F06 

4A 


.BYTE 

E2 

2F07 

42 


„ BYTE 

I™ [”■ 

2F08 

3B 


. BYTE 

GS2 

2F09 

34 


. BYTE 

AS2 

2F0A 


MUZMORs 



2F0A 

5E 


. BYTE 

C2 

2F0B 

54 


„ BYTE 

D2 

2F DC 

4A 


. BYTE 


2 F 0 D 

46 


BYTE 

F2 

2 FOE 

3E 


. BYTE 

02 

2F0F 

•*~i ’*7 

•3 / 


. BYTE 

A2 

2 F 10 

Pt 1 


.BYTE 

B 2 



5 TONE < 

GENERATION TABLE - ORDERED BY ASCII CHARA 



CTER 



OOFF 


CLICK 

-- 

OFFH 

OOFE 


NUMBA 


OFEH 

2F:ii 

FF 

NOTES; 

. BYTE 

L‘L 1 UK ? L*h! 



? IRRELi 

EVANT STUFF TO -EAT TABLE SPACE 

2 F 12 

0001 

TBLDIV: 

. WORD 

i 
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2F14 

OOO A 

» WORD. 

10 

2F16 

0064 

„ WORD 

100 

2F18 

03E8 

» WORD 

1000 

2F1A 

2710 

„ WORD 

10000 

2F1C 


MUZMAXs 


2F1C 

59 

. BYTE 

.... 

L.* •.„* 

2FJ.D 

4F 

. BYTE 

DS2 

2F1E 

46 

. BYTE 

F2 

2F1F 

42 

. BYTE 

FS2 

2F20 

3B 

. BYTE 

GS2 

2F21 

34 

. BYTE 

AS2 

2F22 

2E 

BYTE 

03 



5 AND THE TABLE 

CONTINUES 

2F23 

FF 

. BYTE 

CLICK 

2F24 

00 

. BYTE 

0 

2F25 

El 

. BYTE 

AO 

2F26 

D4 

. BYTE 

A SO 

2F27 

C8 

BD 

82 

BYTE 

to w t t:r 

BO 

p* *i 

2F29 

„ BYTE 

L- .1 

2F2A 

A3 

. BYTE 

D1 

2F2B 

9F 

„ BYTE 

DS1 

2F*7»7 

96 

. BYTE 

El 

2F2D 

3D 

. BYTE 

FI 

2 F 2 b 

35 

„ BYTE 

FS1 

2F2F 

FF 

. BYTE 

CLICK 

2F30 

77 

BYTE 

GS1 


FF 

. BYTE 

CLICK 

2F32 

6A 

. BYTE 

AS 1 

•"> p* p.p. 

6 9 

, BYTE 

B1 

2F34 

FF 

, BYTE 

CL ICK 

2F35 

FE 

, BYTE 

NUMBA 

2P 3 6 

FE 

. BYTE 

NUMB A 

2F38 

FE 

„ BYTE 
,, BYTE 

AiUrlBH 

NUMBA 

2F39 

CTET 

I L... 

. BYTE 

NUMBA 

2F3A 

FE 

. BYTE 

NUMBA 

2F3B 

FE 

. BYTE 

NUMBA 

2F3C 

2E 

„ BYTE 

C3 

2F3D 

2C 

. BYTE 

033 

2F3E 

V Q 

. BYTE 

D3 

2F3F 

27 

„ BYTE 

DS3 

2F40 

25 

»BYTE 

E3 

2F41 

22 

. BYTE 

F3 

• 2F42 

20 

. BYTE 

FS3 

2 h 4 3 

i ir 

4, 1 

. BYTE 

p; p. 

2F44 

1D 

BYTE 

«**£ C* p» 

2F45 

IB 

. BYTE 

A/ : i 

2F46 

2F47 

1A 

13 

■l “T 

. BYTE 
„ BYTE 

DVTI" 

B3 

p" 

2i‘ **4 / 
2F 4 A 
2r - 4ifc* 

1 / 

15 

14 

X 3 

m to f 1 
nvTr 

. IS to f I Cm. 

„ BYTE 

L* d r 

BA¬ 
DS 4 

2F4C 

. 12 
















TDL Z80 CP/M DISK ASSEMBLER VERSION 
,, MAIN,. -- 


PAGE: 56 


2F4D 

11 

. BYTE 

F4 

2F4E 

10 

. BYTE 

FS4 

2F4F 

OF 

. BYTE 

U4 

2F 50 

oe: 

. BYTE 

GS4 

"s,i b 5 1 

OD 

* BYTE 

A 4 

?F59 

OB 

„ BYTE 

C5 

••;>p99 

OA 

. BYTE 

6 5 

2F54 

09 

„ BYTE 

DS5 

2F55 

08 

. BYTE 

F5 

2F56 

.07 

BYTE 

G5 

•~«p* 

06 

. BYTE 

A 5 

2F58 

05 

„ BYTE 

C6 

Vi- 

04 

„ BYTE 

DS6 

2F5A 

03 

„ BYTE 

G6 

2F5B 

02 

,, BYTE 

C7 

2F5C 

01 

. BYTE 

G7 

2F5D 

64 

. BYTE 

B 3. 

2F5E 

5E 

„ BYTE 

C2 

2F5F 

59 

, BYTE 

CS2 

2F60 

54 

„ BYTE 

D2 

2F61 

4F 

. BYTE 

DS2 

2F62 

4 A 

BYTE 

E2 

2F63 

46. 

„ BYTE 

F2 

2F64 

4 V* 

»BYTE 

FS2 

2F65 

3E 

. BYTE 

G2 

2F66 

FF 

M BYTE 

CLICK 

2F67 

FF 

„ BYTE 

CLICK 



3 TABLE OF FIF 

: * 8 T 

2 F 68 


FIRSTL* 


2F68 

OD 

. BYTE 

CR 

2F69 

o ;i 

. BYTE 

1 

2F6A 

00 

. BYTE 

0 

2F6B 

63 

„ BYTE 

63H 

2F6C 

37 

. BYTE 

X “T X 

2 F 6 B 

9 r's 

. BYTE 

8 

.tL 1 L. 1 

39 

„ BYTE 

X Q X 

2F6F 

62 

. BYTE 

62H 

2F70 

34 

„ BYTE 

4 •" 

2F71 

35 

. BYTE 

X K”’ X 

2F72 

36 

„ BYTE 

x 6 ' 

2F73 

2 D 

. BYTE 


2 h / 4 

31 

. BYTE 

' i 

2F75 

o 

. BYTE 

X / 

I"* / (“a 

"9 *9 

. BYTE 

X 0 x 

2F77 

2 B 

. BYTE 

4* 

2F78 

20 

. BYTE 


2F79 

30 

„ BYTE 

x Q X 

2F7A 

IF 

, BYTE 

RUBOU 

2F7B 

3D 

. BYTE 

= *** 



? FIRST SHIFT 

KEY 

2F7C 


KTBL15 


2F7C 

A 7 

. BYTE 

"0 A7H 

2F7D 

OD 

. BYTE 

CR . 

2F7E 

01 

,, BYTE 

1 

2F7F 

00 

„ BYTE 

0 


LEVEL KEYCODES 


5 FIRST SHIFT KEY COLOR 
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1 


2FSO 

01 

. BYTE 

1 

. 3 . 

2 FS 1 

41 

. BYTE 

A" 

2F82 

4 4 

. BYTE 

D •“ 

2F83 

47 

. BYTE 

... q Y 

iitil h* 3 4 

4 A 

. BYTE 

X J 

2F85 

4 El 

„ BYTE 

M ■- 

2F36 

50 

. BYTE 

Y |“> Y 

2F87 

CO 

..JO 

. BYTE 

.** c *** 

2F88 

56 

BYTE 

■" V •' 

2F89 

59 

„ BYTE 

Y" 

2F8A 

5F 

. BYTE 

5FH 

2F8B 

5E 

,, BYTE 

5EH 

2F8C 

26 

. BYTE 

*•* & 

2 F 8 D 

24 

. BYTE 

**’ $ 

2F8E 

3C 

BYTE 

Y Y 

2 F 8 F 

90 

. BYTE 

■- ( ■- 

2F90 

•**> “Tj 

. BYTE 




? SECOND SHIFT 

KEY 

2F91 


KTBL2* 


1 

5F 

. BYTE 

05F 

L/ p 

OD 

. BYTE 

CE 


2 F 

. BYTE 

2FH 

2F94 

00 

. BYTE 

0 

2 "!*“ V5 

5B 

. BYTE 

5BH 

2F96 

42 

. BYTE 

-'B-' 

j*** s 

inr 

Dvrr 

y t*** y 

/ 

"f *.J 

». DT 1 1 “ 

u. 

2F98 

48 

„ BYTE 

•'I-!'- 

2F99 

4B 

. BYTE 


2F9A 

4E 

» BYTE 

•" N '■ 

2F9B 

51 

BYTE 

Q •" 

2F9C 

54 

BYTE 

T •" 

2F9D 

57 

„ BYTE 

■■ w 

2F9E 

5 A 

„ BYTE 

Z ••• 

2F9F 

27 

. BYTE 

27H 

2FA0 

2E 

„ BYTE 

■' i, ■' 

2 FA 1 

40 

„ BYTE 


2 FA 2 

2 C 

„ BYTE 


2FA3 


»BYTE 

22 H 

2FA4 

SB 

„ BYTE 


2FA5 

Z5 

„ BYTE 




? TABLE THE THIRD 

2FA6 


KTBL3! 


2FA6 

OF 

„ BYTE 

OFH 

2FA7 

OD 

„ BYTE 

CR 

2 FAS 

50 

. BYTE 

5CH 

2FA9 

00 

. BYTE 

0 

2 FAA 

5D 

. BYTE 

5DH 

2 F- AD 

43 

» BYTE 

C *“ 

2FAC 

46 

. BYTE 

F 

2FAD 

49 

. BYTE 

i ■■■ 

2 l“ AE 

40 

. BYTE 

'L' 

2FAF 

4F 

. BYTE 

”** 0 

2FB0 

52 

. BYTE 

•" R 

2 F B 1 

55 

. BYTE 

y U 


SECOND SHIFT KEY COLO 


THIRD SHIFT KEY COLOR 







PAGE 


30 CP/M DISK ASSEMBLER VERSION 


IN. 


2FB2 

2FB3 

2FB4 

2FB5 

2FB6 

2FB7 

2FBS 

2FB9 

2FBA 

2FBB 
2FBB 
2FBC 
2FB.D 
2FBE 
2FBF 
2FC0 
2FC1 

2FC3 

2FC4 

2FC5 

2FC6 

2FC7 

*“*ppP; 
'y'* j~* 1 

2FCA 

2FCB 

2FCD 

2FCE 

2FCF 


2FD0 
2FD1 
2FD3 
2FB5 


21 
61 
60 
2 A 
3F 

29 

3A 


-j~y 

67 
66 
6 A 
63 
72 
77 

*jnr 

6B 

6F 

70 
76 
6D 
69 
6C 

71 
6E 
66 

01 

74 


2FD6 

2FD7 

2FD8 

EB | 

7E 1 

2FD9 

071 

2FDA 

4l! i 

2FDB 

AE 

2FDC 

E<: 

? A 

2FDE 

AE 


2FDF 

67 


2FE0 

oq 


2FE1 
2FE2 

7q 

EB 

i 

2FE3 

Dl\ 

2FE4 

C9 \ 

2FE5 

OS 

2FE6 

1A 

2FE7 

C9 


! TOKEN 
KTBL4S 



. BYTE 
. BYTE 
. BYTE 
. BYTE 
„ BYTE 
BYTE 
BYTE 
, BYTE 
i. BYTE 
KEY 

„ BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
„ BYTE 
. BYTE 
. BYTE 
„ BYTE 
. BYTE 
. BYTE 
„ BYTE 
„ BYTE 


.TBYTE 

5 SUBROUTINE TO 
Y IF NECESSARY 
LDE s 


61H 
60H 
•" -«■ 


77H 
NLLN 
EDKEY 
6 AH 
6SH 
72H 
77H 
75H 
6BH 
6FH 
70 H 
76H 
6DH 
69H 
6CH 
71H 
6EH 
EDKEY 
73H 
1 

-7444.— 

LDAX 


WORDS KEY COLOR. 


D FF 


rchj 


SCREEN TEXT MEMOR 


LDE I 


EXAF 


BIT 

7 1 D 

JR 2 

LDE I 

PUSH 

X CHG 

D 

DAD 

H 

MOV 

RLC 

A,M 

I NX 

H 

XRA 

M 

AMI 

1010101OB 

XRA 

M 

MOV 

EXAF 

Hi A 

MOV 

X CHG 

A? H 

POP 

RET 

EXAF 

D 

LDAX 

D 

RET 
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% SUBROUTINE TO STORE MOV 


2FE8 

E5 

STHLs PUSH 

H - W 

2FE9 

F5 

PUSH 

PSW 

2FEA 

CB7C 

BIT 

7,H $ 

2FEG 

280E 

JRZ 

STHL1 

2FEE 

29 

DAD 

H. 

2FEF 

OF 

1 RRC 

•f’ 

2F : b 0 

AE 

! XRA 

M ~1~ 

2FF1 

E655 

f AN I 

01010101B' 

2FF3 

AE 1 

XRA 

M T ' 

2FF4 

77 j 

MOV 

M,A/»- ^ 

h <e- . - 

2FF5 

23 j 

I NX 

2F’F6 

Fi ' 

POP 

PS m \V 

2FF7 

F5 

PUSH 

PSlJ - 

2FF8 

AE 

XRA 

M y 

2FF9 

ES55 

AN I 

01010101B7 

2FFB 

AE 

XRA 

M 7 ^ 

2FFC 

77 

STHLls MOV 

M i A 7 MJV 

2FFD 

F1 

POP 

PSW ' 'l* 

2FFE 

2FFF 

El 

C9 

£PP 

RET 

h ,t m 


END 
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"M . MH~ ! 

BYMBOL IT 

-1BLE 

4* 4H“4--h 





A 0 

OOE1 


A1 0070 


A 2 

0037 


A3 

001B 


A4 GOOD 


A 5 

0006 


A IB 5 

L! y V 


AHOW 2A4D 


ALKEYS 

0214 

I 

AL 1 f“ UN 

n r~ / / 

* i M * ii 


ASO 00B4 


AS 1 

OO&A 


AS2 

0034 


ASS 001A 


A8CBC1 

2202 


ASCBCD 

21FE 


ASORRY 297D 


ATNL 

214 B 


AW HA i 

2'9'4 6 


Bu ooijy 


B1 

0064 


p 

0031 


Be* <jo l y 


BBRET 

2 4 OF 


BCD2 

[d 1 h !J 


BCD3 21F6 


BCD4 

21FB 


BCD A1 

4 El BO 


BCDA2 4EB9 


BCDASC 

21AE 


BCDMAT 

217 A 


BEG 3! N 2433 


BEGINI 

2439 


BEGRAM 

4FCE 

I 

B1TSPL 00AO 

i 

BOTRAM 

A 000 


B0TR0M 

2000 


BOTSCR 4E20 


B0XDR1 

2259 


BOXDRW 

22 OD 


BOXDUD 2267 


BOXNDR 

***** W •«* a ^ 


BOXPUT 

226F 


BUFEND 4F3C 


BUFFER 

4ED4 


BUMPTR 

2I2C 


BYTEPL 0028 

i 

p 1 

OOBD 


C2 

0Q5E 


C3 002E 


C4 

0017 


p i;::* 

00 OB 


C6 0005 


C7 

0002 


CBA 

0009 

I 

CBS 0007 

i. 

CBC 

0006 

T 

J. 

CBD 

0005 

I 

CBE 0004 

T 

1 

CBFLAG 

0008 

I 

CBH 

00 OB 

I 

CBIXH 0003 

I 

CBI XL 

0002 

I 

CBIYH 

ooo i 

T 

A 

CBIYL 0000 

I 

CBL 

OOOA ’ 

I 

GDELTi 

23 A 4 


CDELT2 23A9 


CDELT3 

23AB 


CDELTA 

2 3 SC 


CHDOWN 0001 

I 

CHGSGN 

28FD 


CHK10 

2D9C 


CHKI00 2DC0 


CHKI02 

2E0D 


CHKIOQ 

2DBB 


CHKRN1 28D6 


CHKRNG 

28D8 


CHKSGN 

OOCA 
*„.» t i”*» 


CHLEFT 0002 

I 

CHRIGH 

0003 

I 

CHTR.IG 

0004 

I 

CHUP 0000 

I 

CKHLDE 

2029 


CLICK 

OOFF 


CLRLP 2538 


CLR3CR 

2535 


COLOL 

0004 

T 

A 

COLOR 0000 

I 

COL 1L 

0005 

I 

C0L.1.R 

0001. 

I 

C0L2L 0006 

I 

C0L2R 

0002 

T 

C0L..3L 

0007 

I 

C0L3R 0003 

I 

COLBX 

000B 

I 

COLLST 

4FE8 

I 

COMMA 002C 


COMP 



CONCM 

0008 

T 

CONPRO 4E20 


CONPTR 

4E21 


CR 

GOOD 


CRLF 2C7A 


CS1 

00B2 


cs 2 

0059 


CS3 002C 


OS 4 

0015 


CS5 

000A 


CTO 4FD5 

I 

Oil 

4FD6 

I 


4FD7 

I 

CT3 4FD8 

I 

CT 4 

4FD9 

I 

CT5 

4FDA 

I 

CT 6 4FDB 

I 

p *J* "J 

4FDC 

I 

CT i MtR 

0203 

I 

CUNT 4FDD 

I 

CURRNT 

4EC3 


CURSE 

2 DOS 


D1 00AS 


D2 

0054 


D3 

0029 


D4 0014 


DEFLT 

2759 


DEVCLO 

4EA2 


DEVCL1 4EA4 


DEVLST 

20A2 


DEVTEI1 

4EA6 


DEVV1 29EA 


DEVV2 

29FC 


DEW3 

2 A 0 3 


DEVV4 2A04 


DEWAR 

4EA2 


DFTLMT 

A 7 OC 


DICKY 2EFD 


DIVIDE 

28E5 


DOBCDO 

21E8 


DGCALL 2406 


DS1 

009F 


DS2 

004F ' 


DS3 0027 


DS4 

0013 


DS5 

0009 


DS6 0004 


DURAT 

4FEA 

T 

A 

D V1 

28F0 


DV2 28F2 


DVECT 

22F0 


nr i 
.1. 

0096 


E2 004A 


E3 

0025 


E4 

0012 


EDFLG 4E5B 


EDKEY 

0066 


EDPTR 

4E5C 


ENDSCR 4FF4 

I ;,v- 

ERROR 

2949 


EX.]. 

2517 


EX2 2525 


EX5 

252D 


EXEC 

2515 


EXECO 24EB 


EXECOA 

2504 
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TABLE 

+++++ 





EXECOB 

2511 


EX PR 

2761 


EXPR1 

27A9 

EXPR2 

27DB 


EXPR3 

2840 


EXPRCP 

22B6 

FI 

008D 


F 2 

0046 


F3 

0022 

F4 

001 :i. 


F5 

0008 


FI1 

2935 

F 12 

299E 


FILTl 

2CDC 


FILT2 

2CDE 

FIN 

292E 


FINISH 

2929 


FIRSTS 

2000 

FIRSTL 

2F68 


FL1 

29A0 


FNDLN 

2982 

FNDLP 

298 A 


FNDNXT 

299F 


FNDSKP 

29A1 

F1MTSML 

020D 

I 

FNTSYS 

0206 

I 

FOR 

262C 

FR1 

2639 


FR1A 

263A 


FR4 

2644 

FR5 

265D 


FR 6 

265E 


FR7 

267A 

FRZGBK 

2E59 


FRZKEY 

2E4F 


FS1 

0035 

FS2 

0042 


h S3 

0020 


FS4 

0010 

FTBASE 

0000 

I 

FTBYTE 

0003 

I 

FTFSX 

0001 

FTFSY 

0002 

I 

FTPTH 

0006 

I 

FTPTL 

0005 

FTYSIZ 

0004 

I 

GO 

OOF'D 


G 1 

007E 

G 2 

003E 


G3 

00 IF 


G4 

00 OF 

G5 - 

0007 


G 6 

0003 


G7 

ooo :i 

U«!"» 

0000 


GAMSTB 

4FF8 

I 

GETSIT 

20F8 

GET-JX 

28 BE 


GET J Y 

28CA 


GET JY1 

28D0 

GET JY2 

28D2 


GETJY3 

28D4 


GETK1 

2DD0 

GETK2 

2DDA 


GETK3 

2DE7 


GETK4 

2DF5 

GETK5 

2DF6 


GETKB 

23CE 


GETLN 

2BD5 

GETPOT 

28A6 


GETTRG 

28B6 


GL1 

2BDB 

GL2 

2BDC 


GL2A 

2BE4 


GL2B 

2BFC 

GL2C 

2C23 


GL2D 

2C2E 


GL2E 

2C05 

GL2F 

2C0E 


GL2G 

2 C 1 E 


UL 2 >J 

2BF9 

GL3 

2C31 


GL4 

2C65 


GL5 

2C74 

GL9 

2C62 


GLED 

2BAE 


GL.EDA 

2BC8 

GLEDB 

2BCF 


GOSUB 

25F6 


GOTO 

2572 

GSO 

00 EE 


GS1 

0077 


GS2 

003B 

GS3 

00 ID 


ua4 

OOOE 


GSBEND 

0007 

GSBSCR 

0001 

I 

GSBTIM 

0000 

I 

GTMIMS 

4FEE 

GTSECS 

4FED 

I 

HOOK I N 

2 EA 8 


HORAF 

OOOF 

HORCB 

0009 

I 

HOW 

203B 


IF 1 

26ED 

IFF 

26EC 


IGNBLK 

293C 


INCRO 

4E5E 

INFBK 

GOOD 

I 

INIDEV 

20 ID 


INIJMP 

2E56 

I NIT 

2472 


INI TO 

246F , 


I ML IN 

OOOF 

INMOD 

OOOE 

I 

INPERR 

26FB 


INPUT 

2705 

INTDON 

20 F1 


I NT ST 

0008 

I 

IOFUN 

23E8 

I P.1. 

2705 


IP10 

2734 


IP 11 

707 

IP 12 

273E 


IP 2 : 

27 OB 


IP 3 

2710 

IP4 

2722 


IPS 

2727 


IP 6 

2728 

IP7 

272D 


IPS 

272E 


I TAB 

2062 

JOKEP1 

2EF4 


J0KEP2 

2EF5 


JTAB 

2060 

KEYO 

0014 

I 

KEY 1 

0015 

I 

KEY2 

0016 

KEYS 

0017 

I 

KEYSCN 

2E5C 


KEYSEX 

4FE3 

KEYTMR 

4E55 


KEYTRK 

4E6D 


KTBL1 

2F7C 

KTBL2 

2F91 


KTBL3 

2FA6 


KTBL4 

2FBB 

KYSCMI 

2E65 


KYSCN2 

2E71. 


KYSCN3 

2E7A 

KYSCM4 

2E74 


LDE 

2FD0 


LDE 1 

2FE5 

LDVDM'i 

2366 


LDVDM2 

2371 


LDVDMC 

235A 

LINED1 

22 C 3 


LINED2 

22E3 


LINEDS 

22E9 

LINED4 

22ED 


LINEDR 

22BF 


LIST 

257D 

LOOPER 

2DC5 


LOPING 

4ECB 


LOF'LMT 

4ECD 
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SYMBOL 

TABLE 
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LOPLN 

4ECF 


LOF’PT 

4ED.1. 


l... OP VAR 

4EC9 

LS2 

258A 


LS3 

258B 


L 8 4 

2593 

LS5 

259A 


LSQUIT 

25B1 


MAGIC 

00 oc 

MDI 

2ft 6 D 


MENUST 

0218 

I 

MNMX 

4 ESC 

MPT 3. 

2277 


MPT 2 

2281 


MPT3 

2287 

MPT 4 

2290 


MRFLOP 

0006 

I 

MRLOCK 

4FF7 

MROR 

0004 

I 

MRROT 

0002 

T 

X 

MRSHFT 

0003 

MRXOR 

0005 

I 

MRXPMD 

0003 

I 

MUZMAX 

2F1C 

MUZMIN 

2F03 


MUZ MO 

4E58 


MUZNOR 

2F0A 

MUZ PC 

4FCE 

I 

MUZSP 

4FD0 

I 

MUZTMR 

4E56 

MUZTON 

4E59 


MVDOWN 

2A65 


MVUP 

2A53 

MX SCR 

02 IE 

I 

MEWL! 

2D8I. 


NEWLIN 

2D 4 A 

NEWTMR 

4E57 


NEXT 

267F 


NLLN 

0067 

NLLNCT 

4E62 


NLLNLN 

4 Ei 60 


NLLNZS 

4E63 

MOCLK 

2E i C 


NOG AM Ei 

0235 

I 

NOPLAY 

0223 

NORMEM 

4000 

I 

NOTES 

2F:l 1 


NOTF 

2846 

NUMBA 

OOFE 


• NUMPLY 

4FF3 

I 

NX 1 

2688 

NX 2 

26 AO 


NX3 

'26 BA 


MX 4 

26 DO 

NX5 

2 6 ESI 


NX6 

26F 3 


0A1 

008F 

0A2 

0047 


0A3 

0023 


0A4 

0011 

Oft 5 

0008 


OBO 

OOFE 


oco 

OOF 1 

OD1 

00D6 


OE:l 

OOBF 


OF 1 

00 B 4 

OGI 

OOAO 


OLDLN 

4E64 


OLDXY 

4EAC 

OF’OTO 

4FDF 

I 

0P0T1 

4FE0 

I 

0P0T2 

4FE1 

0P0T3 

4FE2 

I 

oswo 

4 FEE 4 

I 

OSW1 

4FE5 

0SW2 

4FE6 

I 

0SW3 

4FE7 

I 

DUTCH 

2C7C 

FARM 

296B 


PARNP 

286E 


PARNUM 

0007 

PCURS1 

2D8C 


PIXDUD 

21E5 


PIXFUN 

21 BE 

F1X TBL 

2003 


PIXVAL 

4E5B 


PN3 

2AE8 

PM 4 

2AF3 


PN5 

2AFA 


PN6 

2B09 

PN7 

2B0A 


PN8 

2B15 


PIMP 

2B1B 

PNOTC1 

2EBF 


PNOTCL 

2EBB 


PN0TD1 

2EC5 

PNGTDV 

2 ECU 


PNOTE 

2E86 


PNOTML 

2ECA 

PNOTMN 

2ED1 


PNOTNO 

2EE1 


PNOTPL 

2ECE 

PNOTZ 

2ED5 


POPA 

2 A 77 


POTO 

001C 

POT 1 

001D 

I 

P0T2 

001E 

I 

POTS 

00 IF 

PP1 

2A90 


PR I 

25BF 


PR2 

25C7 

PR3 

25CA 


PR 4 

25D5 


PR5 

25DA 

PR6 

25DD 


PR 7 

25E5 


PRg 

25EA 

PR9 

25EE 


PRINT 

25B5 


PRIOR 

4FF9 

PROPTR 

4E20 


PRTCHS 

2ADE 


PRTLN 

2B25 

PRTNUM 

2AE8 


PRTSTG 

2AB7 


PRWAIT 

2E8A 

PS1 

2AB8 


RS2 

2AB9 


PSHARP 

2EBC 

PSWCY 

0000 

I 

PSWPV 

0002 

I 

PSWSGN 

0007 

P8WZRU 

0006 

I 

PU1 

2AB4 


F’USHA 

2A92 

PUT CD 

23FC 


PUTCD2 

2403 


PUT 10 

23D9 

PUTMU 

23F- 3 


PVOLAB 

4FD2 

I 

F’VOLMC 

4FD3 

QHGW 

2A4C 


GSORRY 

297C 


QT1 

2ACA 

QT2 

2ACD 


QT3 

2AD6 


QT5 

2 ADD 

QTST.G 

2AC5 


UWHA 1 

2945 


R2A 

23BE 

R2ACLP 

23AE 


RANEND 

2BAE 


RANSHT 

4FEF 

REM 

26E7 


REMAIN 

4EAE 


RESTO 

26 IF 

RETURN 

26 i 6 


RND 

2876 


RSTART 

2475 

RSTEXP 

0002 


RSTFIN 

0006 


RSTIGN 

0004 

RSTOCH 

0003 


RSTPAR 

0005 


RiJBOUT 

001F 
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RUN 

254D 


RUNNXL 

2550 


RUNSML 

256C 


RUNTSL 

2559 


SABS 

226A 


SCREEN 

0000 

i 

yuKLy 

2D5A 


SCRLP 

2D 6 6 


SCRUP 

2D 70 


SC TO 

0001 

I 

SCT1 

0002 

I 

SCT2 

0003 

i 

SCT3 

0004 

I 

SCT 4 

0005 

I 

SCT5 

0006 

i 

SCT6 

0007 

I 

SCT7 

0008 

I 

SEMI4S 

4FDE 

i 

SENFLG 

4FFA 

I 

SET VI 

2918 


SETVAL 

2912 


F U 

0009 

I 

SF1 

OOOA 

I 

SF2 

OOOB 

i 

SF3 

000c 

I 

SF4 

GOOD 

I 

SF5 

OOOE 

i 

SF6 

00 OF 

I 

SF7 

0010 

I 

SOMEXT 

28AF 


SHARPE 

4E5A 


SIDIMO 

210D 


SIDIN1 

2116 


SIDINS 

2128 


SI DINT 

20F6 


SIZE 

2899 


SJO 

0015 

I 

SJ1 

0017 

I 

SJ2 

0019 

i 

SJ3 

00 IB 

I 

SKYD 

0013 

I 

SKYU 

0012 

i 

SIMDBX 

0018 

I 

SNUL 

0000 

I 

SORRY 

2040 


SPO 

001 c 

I 

SP 1 

00 ID 

I 

8P2 

00 IE 

i 

SP3 

00 IF 

I 

SSEC 

0011 

I 

310 

00:14 

i 

ST:!. 

0016 

I 

ST2 

0018 

I 

STS 

001A 

i 

STACK 

4FEF 


STHL 

2FE8 


STHL 1 

2FFC 


STIMER 

0200 

I 

STKGOS 

4EC5 


STKINP 

4EC7 


STKLMT 

4F5C 


STOP 

2475 


STPBCT 

OOFC 


STRIPE 

2 294 


STRP1 

229D 


STRP2 

22A4 


STVDMC 

2374 


SWO 

0010 

T 

JU 

SW1 

0011 

T 

X 

SW2 

0012 

I 

SW3 

0013 

T 

A. 

SYSRAM 

4FCE 

I 

TAB2 

2B3S 


TABS 

2B6F 


TAB6 

2B98 


TAPBUF 

4E22 


TAPCHO 

2C8F 


TAPCH1 

2C97 


TAPCH2 

2C99 


TAPCH3 

2CA2 


TAPCH4 

2CB1 


TAPE10 

0012 


TAPES"!" 

4 EC 2 


TBFEND 

4E52 


TBIEST 

2410 


TBIINT 

20B0 


TBI NO 

20 BC 


TBIM1 

20C9 


TBIN2 

20E1 


TBIN3 

?0E3 


TBLDIV 

2F12 


TCI 

2A1D 


TELL 

2475 


TEXT 

AO 00 


TIMOUT 

4FEC 

1 

TINPES 

-A. X *,« 5 -L* 


TINPUT 

2151 


TLIST 

2155 


TLIST1 

2158 


TLOAD 

2167 


TLOAD1 

216E 


TMR60 

4FEB 

I 

TNI 

2 A 26 


TOKEP 

2D31 


TOKEP 1 

2D34 


T0KEP2 

2D41 


TOKEPT 

2EEF 


TOKEQ 

2C5E 


TOKER 

2C4C 


TOKIN 

2C48 


TGKJT 

2046 


TOKTXT 

2064 


TONEA 

0011 

l 

TONEB 

0012 

I 

TO NEC 

0013 

I 

TONMO 

0010 

1 

TOPSCR 

4FEF 


TOUTPU 

2161 


TPRINT 

215E 


TRETUR 

240C 


TSTB 

29BB 


TSTCH 

2 A10 


TSTNUM 

2A21 


TSTV 

29AB 


TSTVO 

29CD 


TSTVFF 

21 El 


TURDC1 

2C88 


TURDC2 

2C8C 


TV1 

29D1 


TXTUNF 

4E52 


UCURSE 

2Df46 


UMARGT 

4FFB 

I 

URINAL 

OFFF' 

I 

USERTB 

4FFD 

I 

VARBGN 

4E6E 


YARNXT 

4EC7 


VBBLNK 

0006 

I 

VBCCHK 

0004 

I 

V BlH 

0003 

I 

VBCL 

0002 

I 

VBCLAT 

0003 

X 

VBCLMT 

0000 

I 

VBCREV 

000 1 

I 

VBDCH 

0001 

I 

VBDCL 

0000 

I 

VBDXH 

0004 

I 

VBDXL 

0003 

I 

VBDYH 

0009 

I 

VBDYL 

0008 

I 

VBMR 

0000 

I 

.VBQAH 

OOOE' 

I 

VBOAL 

GOOD 

I 

VBSACT 

0007 

I 

VBSTAT 

0001 

I 

VBTIMB 

0002 

. I 

VBXCHK 

0007 

I 

V Ij X H 

0006 

I 

VBXL 

0005 

I 

VBYCHK 

OOOC 

I 

VBYH 

OOOB 

I 

VBYL 

OOOA 

I 

VDM 

2CGE 


VDMOCR 

2D00 


VDM1 

: ;;>r:F5 


VDM2 

2CF8 
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VDM3 

2D0E 


. VDMCAj... 

2CBC 


MOMDN'i. 

2D29 

VDMDM2 

2 D2D 


VDMDOM 

2D2C 


VDMFRp 

2CB7 

VDMNLF. 

4SI54 


VDMTOK 

2CC5 


VDMX 

4EAS 

VDMY 

4 ISA A 


VECT1 

23 OB 


\$ECT2 

2316 

VECT2A 

2335 


VEST 3 

-DO xt sir 
xl O "T--.. 5 


VECT4 

234A 

VECT5 

2355 


VECT? 

2330 


VERAF ■ 

00 OE 

VERBL. 

oooa* 

I . 

VI BRA* 

0014 

I 

VOICES- 

4FD4 

VOLAB 

001 6 

T 

. VOLC ' 

0015 

I 

VOLN , 

0017 

MASTER 

OF FT' 

T 

j. 

WCLIGK 

*■*;* r.r o c> 


. WHAT 

2035 

WHATSU 

2E3F 


XF11 

27B1 


XP12 

27 B 4 

XP1 3 

27 B 7 


XR14 ■ 

27BE 


XP1.5 

27CF 
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